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Die Bank zieht 


In unserem 17+4-Spiel erreichen wir nun den Punkt, an dem der 
Spieler die komplette Hand ausspielen kann. Jetzt betrachten wir die 
Routinen, die es der Bank ermöglichen, entsprechend zu reagieren. 


at der Spieler sein Blatt vervollständigt, ist 

die Bank am Zug. Die Regeln, die wir in 
dieser Version des 1744-Spiels angenommen 
haben, geben der Bank einige Vorteile. Als er- 
stes kennt die Bank die Punktezahl des Geg- 
ners und muß somit keine Züge riskieren, die 
ihr Blatt sprengen würden. Der zweite Vorteil 
ist, daß die Bank nur den gleichen Punktestand 
erreichen muß, um die Runde zu gewinnen. 


Die Bank darf nicht ein Blatt mit 12, 13 oder 14 
Punkten ausspielen. 

In diesem Stadium des Spieles zeigt der 
Bildschirm Ihre Karten und die zwei Karten, die 
anfangs an die Bank ausgegeben wurden, an. 
Die erste dieser Karten wurde mit dem Bild 
nach unten ausgeteilt, so daß die nächste Auf- 
gabe des Programms im Umdrehen der Karte 
besteht. Die einfachste Lösung wäre, die Kar- 


Der 
Computer 
ist dran 


Schneider CPC 


130 REM #*##* computer’s turn *%%*#* 

140 pl=2 

150 ep=20:60SUB 470:REM erase cards 

180 cen=hd(pl,1,1d:su=shd(p1l,1,29:G60SUB 10 
O0:REM reprınt 

170 cn=hdfpl,2,1d:su=hd(p1,2,2):G0SUB 10 
O0O:REM reprint 

180 GOSUB 2500:REM bank twist etc 

190 REM #*** win or lose *#%*** 

200 IF bw=1 THEN GOSUB ?700:PEN black :PRI 
NT"sorry you lose" :GOTO 300 

210 GOSUB 700:PEN black:PRINT"you win " 
300 a$="":WHILE a$="" :a$=INKEY$ :WEND 


305 REM #* if shift/s then shuffle ** 
310 IF a$="S" THEN GOSUB 700 :PRINT"shuff 
ling....please wait":60SUB 3000 

320 GOTO 50 

2500 REM *#*** bankK’s turn *#*%# 

2520 ON pv+i GOSUB 2540 , 2550, 2560 ,2570,2 
580 

2530 RETURN 

2540 bw=1:RETURN:REM punter bust 

2550 ts=ps:60SUB 5000 :RETURN:REM twist u 
ntil beat punter or bust 

2560 ts=21:605UB 5000 :RETURN:REM twist u 
ntil pontoon or bust 

2570 GOSUB 5200 :RETURN:REM twist until 5 
card trick or bust 

2580 GOSUB 800:IF ef=2 THEN bw=1:RETURN: 
REM bank’s royal pontoon 

2585 bw=0 :RETURN:REM punter’s royal pont 
oon 

5000 REM ***#* bank twist until target or 
bust ##%#* 

5010 GOSUB 800:REM evaluate 

5020 IF ef=4 THEN bw=0 :RETURN:REM bust 
5025 IF ef=2 OR ef=5 THEN bw=1:RETURN:RE 

M bank royal pontoon/five card trick 
5040 IF tt(2,1)>=ts OR(tt(2,2)<£=21 AND t 
t(2,2)>=ts) THEN bw=1:RETURN 

5045 IF hp(2)>5 THEN bw=0:RETURN:REM fiv 
cards dealt 

5050 GOSUB 1300:G60T0 S0O00:REM deal and r 
e-evaluate 

S200 REM *#** twist until 5 card trick o 
r bust ##%*%* 

5220 GOSUB 800:REM evaluate 

5225 IF ef=4 THEN bw=0 :RETURN:REM bust 
5227 IF ef=2 OR ef=5 THEN bw=1:RETURN:RE 

M bank royal pontoon/five card trick 
5228 IF hp(23>5 THEN bw=0:RETURN:REM fiv 
cards dealt 

5230 GOSUB 1300:G0T0 5200:REM deal card 
and eval again 


Sinclair Spectrum 


130>REM **** COMPUTER’S TURN *%*%%* 

140 LET PL=2 

150 LET EP=14: GO SUB 670: REM ERASE CA 
RDS 

160 LET CN=D(PL,1,1): LET SU=D(PL,1,2): 

60 SUB 1000: REM REPRINT 

170 LET CN=D(PL,2,1): LET SU=D(PL,2,2): 

60 SUB 1000: REM REPRINT 

180 GO SUB 2500: REM BANK TWIST ETC 

190 REM *%*%*%* WIN OR LOSE %**%*%* 

200 IF BW=1 THEN GO SUB 700: PRINT "SO 
RRY YOU LOSE": GO TO 300 

210 GO SUB 700: PRINT "YOU WIN #";BT 

300 LET A$=INKEY$: IF A$="" THEN 60 TO 

300 

305 REM #* IF SYM/S THEN SHUFFLE %*%* 

310 IF A$=CHR$ 195 THEN 60 SUB 700: PR 
INT "SHUFFLING ... PLEASE WAIT": GO SUB 
3000 

320 GO TO 50 
2500>REM #%*** BANK’S TURN #*%** 

2520 GO SUB (PVx*10)+2540 
2530 RETURN 

2540 LET BW=1: RETURN : REM PUNTER BUST 
2550 LET TS=PS: GO SUB 5000: RETURN : RE 
M TWIST UNTIL BEAT PUNTER OR BUST 
2560 LET TS=21: 60 SUB 5000: RETURN : RE 
M TWIST UNTIL PONTOON OR BUST 
2570 GO SUB 5200: RETURN : REM TWIST UNT 
ILFIVE CARD TRICK OR BUST 
2580 GO SUB 800: IF EF=2 THEN LET BW=l: 

RETURN : REM ROYAL PONTOON 
2585 LET BW=0: RETURN : REM PUNTER’S ROY 
AL PONTOON 
SO00>REM **%*%* BANK TWIST UNTIL TARGET OR 

BUST 
5010 GO SUB 800: REM EVALUATE 
5020 IF EF=4 THEN LET BW=0: RETURN : RE 
M BUST 
5025 
ETURN 
5040 IF TC2,1)>=TS OR (T(2,2)<=21 AND TC 
2,2)3=T5) THEN LET BW=1: RETURN 
5050 GO SUB 1300: GO TO 5000: REM DEAL A 
ND RE-EVALUATE 
5200 REM **** TWIST UNTIL 5 CARD OR BUST 

LE 2.22 
5220 GO SUB 800: REM EVALUATE 
5225 IF EF=4 THEN LET BW=0: RETURN : RE 


IF EF=2 OR EF=5 THEN LET BWw=ei1: R 


M BUST 

5227 IF EF=2 OR EF=5 THEN LET BW=1: R 
ETURN 

5228 IF P(C2)>5 THEN LET BW=0: RETURN 


5230 GO SUB 1300: GO TO 5200 
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ten der Bank zu löschen, dazu können wir die 
Löschroutine in Zeile 670 benutzen. Anschlie- 
Bend zeichnen wir die Karten erneut mit dem 
Bild nach oben. Dafür setzen wir CN und SU 
(Kartenwert und Farbe) auf den Wert der Bank- 
karten in der Feldvariablen HD(...), und zum 
Schluß rufen wir die bereits vorgestellte Kar- 
ten-Darstellungsroutine auf. Dies wird alles in 
der Hauptprogrammschleife in den Zeilen 150 
bis 170 erledigt. Hat der Spieler verloren, so ist 
das Spiel beendet. 

Erreicht der Spieler einen Punktestand von 
weniger als 21, muß die Bank so oft ziehen, bis 
sie die gleiche Punktzahl erreicht, übertrifft 
oder das Blatt sprengt. 

Hat der Spieler einen „Five-Card-Trick“, 
muß die Bank ziehen und versuchen, ebenfalls 
fünf Karten zu erreichen. 

Hat der Spieler einen Black-Jack, so muß die 
Bank ebenfalls einen Black-Jack erreichen. 


Commodore 64 


130 REM **** COMPUTER’S TURN #*** 

140 PL=2 

150 EP=20:G60SUB870:REM ERASE CARDS 

160 CN=HD(PL,1,1):SU=HD(PL,1,2) :60SUB100 
0:REM REPRINT 

170 CN=HD(PL,2,1) :SU=HD(PL,2,2) :GOSUB100 
0:REM REPRINT 

180 GOSUB2500 :REM BANK TWIST ETC 

190 REM **** WIN OR LOSE *x*** 

200 IF BW=1 THEN G0SUB?00 :PRINTCHR&$( 15%) 
;"SORRY YOU LOSE" :GOTO 300 

210 GOSUB?00 :PRINT CHR$(156) ;"YOU WIN" 
300 GET A$:IF A$=""THEN 300 

305 REM ** IF SHIFT/S THEN SHUFFLE ** 
310 IF A$=CHR&(211) THENGOSUB?00 :PRINT"SH 


UFFLING ... PLEASE WAIT":GOSUB 3000 
320 GOTO 50 
2500 REM **** BANK’S TURN ***%* 


2520 
580 
2530 


ON PV+1 GOSUB 2540 ,2550 ‚2560 ,2570,2 


RETURN 

2540 BW=1:RETURN:REM PUNTER BUST 

2550 TS=PS:G0SUB5000 :RETURN:REM TWIST UN 
TIL BEAT PUNTER OR BUST 

2560 TS=21 :G60SUB5000 :RETURN:REM TWIST UN 
TIL PONTOON OR BUST 

2570 GOSUBS200 :RETURN:REM TWIST UNTIL 5 
CARD TRICK OR BUST 

2580 GOSUBSOO:IF EF=2 THEN BW=1:RETURN:R 
EM ROYAL PONTOON 

2585 BW=0 :RETURN:REM PUNTER’S ROYAL PONT 
OON 

5000 REM **** BANK TWIST UNTIL TARGET OR 
BUST *x*%*%* 

5010 GOSUBSOO :REM EVALUATE 

5020 IF EF=4 THEN Bu=0:RETURN:REM BUST 
5025 IF EF=2 OR EF=5 THEN BW=1:RETURN 
5040 IF TTC2,1)>=TS OR(TT(2,2)<=21AND TT 
(2,2)>=TS)THEN BW=1:RETURN 

5045 IF HPC2)>5 THEN Bu=0:RETURN:REM FIV 
E CARDS DEALT 

5050 GOSUB 1300:60T0 5000:REM DEAL AND R 
E-EVALUATE 

5200 REM**** TWIST UNTIL 5 CARD OR BUST 
ERER 

5220 GOSUBSOO:REM EVALUATE 

5225 IF EF=4 THEN BW=0:RETURN:REM BUST 
5227? IF EF=2 OR EF=5 THEN BW=1: RETURN 
5228 IF HP(2)>5 THEN BW=0 :RETURN 

5230 GOSUB 1300:G60T0 5200:REM DEAL CARD 
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Die Unterroutine in Zeile 2500 wählt die be- 
nötigten Schritte durch ON... GOSUB-Befehle, 
in Verbindung mit der Variablen PV. Wenn die 
Bank twisten muß, um die Karte des Spielers 
zu übertreffen, setzt das Programm die Varia- 
ble TS auf die zu erreichende Punktezahl und 
verzweigt in eine weitere Unterroutine bei 
Zeile 5000. 


Acorn B 


130 
140 
150 
160 

1000 
170 

1000 
180 
190 
200 

‚ You 
210 
300 


REM 

PL=2 

EP=20:G0SUB 470 
CN=HD<PL,1,1):SU=HD(CPL,1,2) :G0SUB 


CN=HD<PL,2,1) :SU=HD(PL,2,2) :GOSUB 


GOSUB 2500 
REM 
IF Bw=1 THEN GOSUB 700 :PRINT" SORRY 
LOSE!" :GOTO 300 
GOSUB 700 :PRINT"YOU WIN " 
A$=GET$ 
305 REM 
310 IF A$="S" THEN GOSUB 700 :PRINT"SHU 
FFLING....PLEASE WAIT" :G0OSUB 3000 
320 GOTO 50 
2500 REM 
2520 ON PV+1 GOSUB 2540, 2550,2560,2570, 
2580 
2530 RETURN 
2540 BW=1:RETURN 
2550 TS=PS:G60SUB 5000 :RETURN 
2560 TS=21:G0SUB 5000 :RETURN 
2570 GOSUB 5200 :RETURN 
2580 GOSUB 800:IF EF=2 THEN BW=1 
2585 BW=0 :RETURN 
5000 FORDL=1T0100:NEXT 
5010 GOSUB 800 
5020 IF EF=4 THEN BW=0:RETURN 
5025 IF EF=2 THEN BW=1 : RETURN 
5040 IF TTC2,1)>=TS OR (TT(2,2)<=21 AND 
TTt2,2)3=TS) THEN BW=1 :RETURN 
5050 GOSUB 1300:60T0 5000 
5200 REM 
5210 GOSUB 1300 
5220 GOSUB 800 
5225 IF EF=4 THEN BW=0 
5230 IF EF<>5 THEN 5210 
5240 BW=1:RETURN 


In dieser 17+4-Version 
hat die Bank den Vor- 
teil, genau zu wissen, 
welchen Punktestand 
sie erreichen muß. In 
unserem Beispiel hat 
der Spieler 19 Punkte. 
Die Bank muß nun noch 
mindestens eine wei- 
tere Karte aufnehmen, 
um den Spieler zu über- 
bieten. 


Hochstapelei 


In den vorigen Folgen dieser Serie hatten wir festgestellt, daß sich 
Subroutinen ausgezeichnet zur Programmstrukturierung eignen. Wir 
wollen uns nun die Beziehung der Subroutinen zum Stapel ansehen 
und dann auf die Parameterübergabe eingehen. 


Ss: wir uns zunächst ein Programmbei- 
spiel an, das die Subroutine CALC zweimal 
aufruft: 


(... Codezeilen... .) 

2000 4EB8 JSR CALC * Subroutine 

aufrufen 
(... Codezeilen .. .) 

2100 AEB8 JSR CALC * Subroutine 
nochmals 
aufrufen 

2102 4000 (... Codezeilen .. .) 

4000 3200 CALC MOVE D0,D7 * Subrouti- 
nenein- 
sprung 

(... Codezeilen ...) 

4100 4E75 RTS * Rück- 

sprung 


Bei jeder Ausführung von ]JSR schiebt der 
68000 den Inhalt des Programmzählers (die 
Adresse des auf ]JSR folgenden Befehls) auf 
den Stack und lädt die von JSR angegebene 
Adresse in den PC. Wenn der 68000 am Ende 
der Subroutine das RTS findet, zieht er die 
Rücksprungadresse (auch „Linkadresse" ge- 
nannt) wieder vom Stack und lädt sie in den 
PC. Die Linkadresse wird im Langwortformat 
auf den Stack geschoben. In unserem Beispiel 
befinden sich — nach Ausführung des ersten 
CALC — die im nebenstehenden Bild gezeig- 
ten Werte auf dem Stack und im PC. 

Die zweite Hälfte des Bildes zeigt, wie der 
Stack nach Ausführung von RTS und dem La- 
den der Linkadresse in dem PC aussieht. Die 
Linkadresse wird dabei auf dem Stack nicht 
gelöscht, sondern beim nächsten Stackeinsatz 
einfach überschrieben. 

Die für den Linkvorgang nötigen Abläufe er- 
ledigt die Hardware des 68000. 

Bei verschachtelten Subroutinen wird zur 
Speicherung der Rücksprungadressen der 
Stack erweitert. Wenn sich CALC jedoch selbst 
aufruft (Rekursion), werden die Rücksprung- 
adressen solange „gestapelt“, bis die Rekur- 
sion endet oder das Programm wegen des 
Stacküberlaufs abstürzt. 

Sehen wir uns nun an, wie Ein- und Ausga- 
beparameter übergeben werden. In der letz- 
ten Folge hatten wir CALC über DI mit Daten 
versorgt und das Ergebnis in D2 erhalten. Da 
die Registerzahl begrenzt ist, reicht diese Lö- 
sung jedoch nur für kleine Programme. 


Bei längeren Programmen bietet sich, be- 
sonders bei der Arbeit mit Compilern, der 
Stack als Übergabemedium an. Die Parameter- 
übergabe an CALC würde dann so aussehen: 

2000 MOVE PARAM1,—(SP) * ersten Para- 

meter auf den 

Stack schieben 
2004 MOVE PARAM2,—(SP) * zweiter Param. 
2008 JSR CALC * CALC aufrufen 


200A.... 
Nun enthält der Stack beim Einsprung in CALC 
PARAM1 
PARAM2 
Is link 


SP in CALC —> ms link 


Der Zugriff auf PARAMI geschieht mit einem 
Distanzwert auf SP, damit die Linkadresse 
übersprungen wird: 

ADDQ #6,5P * Pointer korrigieren 

MOVE (SP),D4 * Parameter holen 


oder einfacher mit 
MOVE 6(SP),D4A 


Bei einer Korrektur des Stackpointers ist si- 
cherzustellen, daß SP vor Ausführung der 
Rücksprungadresse auf die Linkadresse zeigt, 
da Sie sonst unvorhersehbare Ergebnisse er- 
halten. Dies ist auch bei der Rückgabe der Er- 
gebnisse per Stack wichtig, es sei denn, die 
Subroutine überschreibt einen oder beide Ein- 
gabeparameter. 

Weit einfacher ist der Einsatz eines separa- 
ten Parameterstacks (beispielsweise A6), da 
dabei der Stackpointer nicht beeinflußt wird 
und für Hardwarefunktionen reserviert bleiben 
kann. In diesem Fall sieht der Aufruf so aus: 

MOVE PARAM1,—(A6) * ersten Parameter 

auf den Stack A6 
schieben 

MOVE PARAM2,—(A6) * zweiten Parameter 

Jen BALE * SP für die Link- 

adresse freihalten 


In der Subroutine lassen sich die Parameter 
dann leicht mit 
MOVE (A6)+,D2 * zweiten Parameter ho- 
len 
MOVE (A6)+,D1* ersten Parameter 
holen 
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Untergrenze 


1000 
FFFF 


FFFE 
FFFD 


FFFC 
FFFB 


0000 


Der 68000 legt eine 
Rücksprungadresse 
(die „Linkadresse“) auf 
dem Stack ab, bevor er 
die Programmsteuerung 
an eine Subroutine 
übergibt. Diese Adresse 
wird im Langwortfor- 
mat auf dem Stack ab- 
gelegt und beim Auftre- 
ten eines RTS-Befehls 
wieder in den Pro- 
grammzähler einge- 
setzt. 


2272 


Wird in den PC geladen 


zu Belsalcıgeca 
? 


abrufen, da keine Linkadressen übersprungen 
werden müssen. Beachten Sie, daß die Para- 
meter in umgekehrter Reihenfolge eingelesen 
werden. 

Stacks werden viel in modernen Hochspra- 
chen mit Blockstruktur eingesetzt. Dabei ord- 
net die Sprache dem Parameter und den loka- 
len Variablen von Prozeduren Platz in einem 
fest definierten Speicherbereich zu. Hier ein 
Beispiel: 

Procedure Berechnen (xval, yval : int); 

var 
store : int; 
begin 
store := 2*xval + yval”2; 


Dieses PASCAL-Modul arbeitet mit den Para- 
metern „xval“ und „yval“ und der lokalen Varia- 
blen „store“, denen im Stack Platz zugeteilt 
wird. Alle weiteren, im Programm nicht aufge- 
führten Zwischenvariablen des Compilers 
(z.B. die yval“2-Komponente von „store“ wäh- 
rend der Bewertung von 2*xval) werden nach 
der „Push“- und „Pop“-Methode auf dem Stack 
abgelegt bzw. von dort abgerufen. 

Der 68000 bietet für die Verwaltung der 
Stackdaten die beiden Befehle LINK (Adreß- 
register auf den Stapel schieben) und UNLK 


(Adreßverbindung lösen). Die Befehle werden 
gemeinsam eingesetzt und reservieren im 
Stack einen Speicherblock für den Subrouti- 
neneinsatz. Nach Einsprung in eine Subroutine 
richtet LINK das Adreßregister RZ („Rahmen- 
zeiger") ein, das auf einen Datenbereich des 
Stacks zeigt, und bewegt den SP um einen be- 
stimmten Distanzwert nach unten. Wenn ein 
Stack nach Ausführung von JSR so aussieht: 


PARAM1 
PARAM2 
Is link 

SP- ms link 

dann hat er nach LINK folgenden Inhalt: 

PARAM1 
PARAM2 
Is link 
ms link 

RZ alter RZ 

Distanzwert .... lokale Variable 
sp 


Falls die Subroutine weiteren Speicher benö- 
tigt, wächst der Stack nach „unten“. 

Kurz vor Ende der Subroutine (d. h. vor RTS) 
versetzt UNLK die Pointer wieder in den Zu- 
stand vor dem Subroutinenaufruf. 

Die beiden bisher erwähnten Fälle sind die 
zwei Pole der Parameterübergabe des 68000. 
Auf der einen Seite werden die Parameter ein- 
fach in Datenregister (bei der indirekten Para- 
meterübergabe auch in Adreßregister) gela- 
den, während andererseits der speziell struk- 
turierte Stack die Parameterübergabe von 
Hochsprachen ermöglicht. Für den normalen 
Gebrauch reicht die Übergabe per Register je- 
doch oft nicht aus, während die Stacksteu- 
erung zu kompliziert ist. 

Hier schaffen andere Methoden Abhilfe. So 
wird zum Beispiel ein Datenbereich festgelegt, 
der die Ein- und Ausgabeparameter einer 
Gruppe von Subroutinen (d.h. eines Moduls) 
enthält. Dieser Datenbereich ist nicht global, 
sondern wird nur von dieser Subroutinen- 
gruppe für die Parameterübergabe eingesetzt. 
Dabei holt sich jede Subroutine ihre Variablen 
aus einem festen Speicherbereich und spei- 
chert dort auch die Ergebnisse. Hier ein Bei- 


spiel: 

CALC LEA  INPUTS,A4 * auf Eingabe- 
parameter zei- 
gen 

MOVE (A4),DO * ersten Para- 
meter holen 

MOVE (A4)+,D1 * zweiten Para- 
meter holen 

.... Programmcode 

MOVE D5,OUTPUT *Ausgabepara- 
meter spei- 
chern 

RTS 


Wenn Sie den Pointer auf einen Parameterbe- 
reich in einem definierten Adreßregister über- 


geben, wird die erste Zeile des Beispiels über- 
flüssig. Diese Methode arbeitet ebenfalls mit 
separaten Stackbereichen für die Parameter 
INPUTS und OUTPUT. 

Eine zweite Methode verwendet zwar Regi- 
ster, setzt damit aber den Befehl MOVEM ein. 
Sehen wir uns den Befehl einmal genauer an. 


MOVEM Resisterliste, SAVEAREA 


legt die in der Registerliste angegebenen Re- 
gister in einen Speicherbereich ab, der bei der 
absoluten Adresse SAVEAREA anfängt. 


MOVE D3/D5/A2,SAVEAREA 


lädt D3in SAVEAREA, D5 in SAVEAREA+2 und 
A2in SAVEAREA+4. MOVEM vereinfacht die- 
sen Vorgang: 


MOVEM D3/D5/A2,—(SP) 


Der Befehl stapelt die Register in aufeinander- 
folgenden, absteigenden Adressen. Beim Si- 
chern einer Reihe von Registern erlaubt der 
68000 auch folgende Kurzversion: 


Link An# Offset aus- 
führen 


„An“ auf den Stack 
schieben 


SP in „An“ kopieren 


Offset auf SP addieren 


Fortsetzung der Sub- 
routine 


Verbindung lösen 


MOVEM D1—D5/A4,—(SP) 


Hier werden DI bis D5 und A4 gespeichert. 
MOVEM kann die Register (als Zieloperand) 
aber auch zurückladen: 


MOVEM—(SP),D1—D5/A4 


setzt die Register wieder auf ihre ursprüng- 
lichen Inhalte. 

Bei der Parameterübergabe lassen sich mit 
dieser Methode leicht Register freisetzen, die 
sonst für spezielle Zwecke gebraucht werden 
(z.B. zur Systemsteuerung). Wenn beispiels- 
weise DO und DI als Parameterregister defi- 
niert sind und (die sonst für Systemzwecke re- 
servierten Register) D2 bis D7 für die Subrou- 
tine eingesetzt werden sollen, kann MOVEM 
sie für die Dauer der Subroutine freistellen. 
Z.B; 

CALC MOVEM D2—D7,—(SP)* alten Inhalt 


Reservierte 
Plätze 


Mit LINK und UNLK 
können Programme 
sehr schnell einen 
Stackbereich für Sub- 


“x routinen reservieren. 
ae D2-D7 Dies ist besonders bei 
sichern Mehrplatzanwendungen 

MOVE DO,D2 * ersten Pa- wichtig, da Subroutinen 
rameter la- hier von anderen Pro- 
den grammen unterbrochen 
5 werden können. LINK 

Code, der bewegt den Stackpoin- 
D2—D7 ein- ter um einen Distanz- 
setzt wert abwärts. Das Regi- 


ster „An“ dient als 
„Rahmenzähler“, mit 
dem die Subroutine auf 
die Daten des reser- 
vierten Speicherblocks 
zugreift. UNLK stellt 
schließlich die ur- 
sprünglichen Werte des 
SP und von „An“ wie- 
der her. 


MOVEM —(SP),D2—D7 * alten Inhalt 
zurückladen 
RTS 


Sie sehen, der 68000 hat mehrere Möglichkei- 
ten, Parameter an Subroutinen zu übergeben, 
und verfügt für diese Aufgabe auch über ent- 
sprechende Befehle. 


„An“ in SP kopieren 


Ursprünglichen Wert 
von „An“ vom Stack 
ziehen 


Fortsetzung der Sub- 


routine 


Nach JSR Nach LINK 


Rücksprung- 
adresse 


Arbeitsbe- 
reich der Pro- 
zedur 


Speicher- 
untergrenze 


Speicher- 
untergrenze 
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Elektronische Post 


Dieser abschließende Artikel unserer Unix-Reihe befaßt sich mit 
weiteren Annehmlichkeiten, die das System bietet, z. B. die 
elektronische Post - bei Unix ein Systembestandteil. 


login: com-mecc 
Password: 


You have mail. 


%mail 


& 
Message |: 


Berkeley 4.2 Vax/Unix Kinfc3) 
Type (Ctrl-D) io disconnect 


Mail version 2.18 57/19/83. Type ? for help. 
"/usr/spool/mail/com-mcc": | message 1 new 

>N I com-vjp Fri Nov 15 09:52 11/271 "Specimen mailing” 
(Mail-Prompt; nach Drücken von Retum Anzeige 


lektronische Briefkästen stehen zwar seit 

einiger Zeit zur Verfügung, das Verfahren 
hat sich aber aufgrund der umständlichen 
Handhabung, Langsamkeit und geringen Zu- 
verlässigkeit nur wenig durchsetzen können. 
Bei Unix ist die elektronische Post schon ein- 
gebaut. Sie erlaubt den Nachrichtenaustausch 
zwischen Benutzern derselben Anlage und 
über geeignete Kanäle auch die Kommunika- 
tion zwischen zwei beliebigen Rechnern mit 
Unix-System. Beide Verfahren laufen nach 
dem gleichen Schema ab. 

Das elektronische Postsystem wird durch 
den Befehl „mail“ aktiviert; damit ist Ihre per- 
sönliche Briefkastendatei eröffnet und der Zu- 
griff auf alle an Sie gerichteten Briefe möglich. 


Post und Datenbank r 


c [directory] 


A «user list> 


You are a normal user (class 3 

obs: & Superiors: 2 Maximum: 21 

Last login: Thu Nav 14 13:47:42 on ttynOd 
% ingres demo 


(Hinweis, daß Post vorliegt) 


A «message list> 


Die eintreffenden Botschaften tragen eine 
Nummer und sind mit der Benutzerkennung 
des Absenders versehen, auch die Weiter- 
gabe von Kopien an andere Teilnehmer ist ver- 
merkt. Neue und ungelesene Post wird beim 
Einloggen angezeigt. 


Ingres 


Das Postsystem meldet sich mit dem Prompt- 
zeichen „&". Es gibt eine Vielzahl von Befehlen 
für die Handhabung der Mitteilungen und für 
diverse Systemfunktionen wie das Wechseln 
der Directory. Zum Ausstieg aus dem Postmo- 
dus tippen Sie entweder „x“ oder „q" ein, je 
nachdem ob die Briefe (soweit ungelöscht) im 


quit, do not remove system mailbox 

print out active message headers 

shell escape 

chdir to directory ar home if none given 

consists of integers, ranges of same, or user names 
separated by spaces. If omitted, Mail uses the last 
message typed. 

consists of user names or distribution names 
separated by spaces. 


Distribution names are defined in .sendrc in your hame directory. 


(Aufruf der Ingres-Datenbank mit Vorführdaten) 


INGRES version 7.10 (10/27/81) login 
Fri Nov 15 10:28:42 1985 


g0 


*\g 


von Neueingängen) Executing... 


* print parts 


(Bereitstellung von Kommandos im Arbeits- 
bereich; Aktivierung durch /g) 


From com-vjp Fri Nov 15 09:52:35 1985 


Fram: cam-vjp (Vicki) parts relation 


To: com-daf, com-mec i | pnum | pname colour Iweight Igaoh | 
Subject: Specimen mailing (Betreff: Musterbrief) Nest ET N EEE ER EE TE EN ONEN re nenı | 
Hello (Inhalt der Nachricht) | 10] byte-soap | clear ) ol 1431| 
} | 1| central processor | pink | 10 | In 
&? (Auflisten der verfügbaren Befehle) | 111 cardreader | grey | 327| o| 
Heil UanInanıa | 2| memory | grey ) 20 | 32] 
t «message list> types messages | 12| card punch | grey | 427 | o| 
n goto and type next message | 3| disk drive | black | 685 | 2] 
e <message list» edit messages | 131 paper tape reader | black 17221071 o| 
f «message list> give head lines of messages | 4| tape drive | black | 450 | al 
d «message list> delete messages | 14] paper tape punch | black | 147 | o| 
3 «message list> file appends messages to files | 5| tapes | grey | 11 2501| 
u <message list> undelete messages | 6| Tine printer I yellow | 5781 3| 
r «message list> reply to messages (ee ee a Ben en ne | 
pre <message list» _ make messages go back to /usr/mail continue 
m <user list> mail to specific users An (Aktueller Inhalt des Arbeitsbereichs) 
q quit, saving unresolved messages in mbox print parts 
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Briefkasten bleiben und beim nächsten Aufruf 
wieder avisiert werden sollen, oder ob sie zur 
Aufbewahrung in eine „mbox“-Datei kommen 
sollen. Was darin abgelegt ist, läßt sich zwar 
wie jede Textdatei bearbeiten, aber nicht mehr 
direkt als „Post“ erreichen. 

Ein Postversand innerhalb des eigenen Sy- 
stems kann über den Befehl „m“ erfolgen, nach 
außen über „mail“, jeweils mit dem Adressa- 
tennamen dahinter, und zwar in Form der nor- 
malen Login-Benutzerkennung. Die Liste kann 
beliebig lang sein, alle angeführten Teilneh- 
mer erhalten eine eigene Briefkopie. 

Wenn Sie regelmäßig Post an denselben 
Empfängerkreis verschicken, können Sie sich 
mit einer „alias“-Vereinbarung das wiederholte 
Eintippen sämtlicher Namen ersparen. Für die 
Festlegung solcher Parameter ist eine spe- 
zielle Datei vorgesehen. Dort können Sie auch 
einen Vermerk (.mailrc oder .sendrc) hinterlas- 
sen, wenn Sie über alle Posteingänge sofort in- 
formiert werden möchten. 

„Ingres“" ist in den meisten Unix-Fassungen 
bereits enthalten, andernfalls aber nachträg- 
lich zu implementieren. Die Benutzerschnitt- 
stelle ist zwar weniger komfortabel als bei an- 
deren Datenbanken, aber dafür ist dies relatio- 


continue 

“Nr 

go 

* range of p is parts 


(Arbeitsbereich räumen) 


Zugriffsbereichs, Kurzbezeichnung „p“) | card reader 
(Feld „pname“ aufsuchen und anzeigen) | memory 


* retrieve (p.pname) 

« \g 

Executing.. 

| pname | 


byte-soap 


nale System auch sehr viel leistungsfähiger. 
Wie fast alles bei Unix kann auch Ingres den 
individuellen Erfordernissen des Benutzers an- 
gepaßt werden. Der unten wiedergegebene 
Bildschirmdialog bietet dazu ein Beispiel. 


Texteditor 


Ohne Texteditor wäre kein Betriebssystem 
komplett. Bei Unix gibt es davon standardmä- 
ßig gleich drei, und bei Bedarf lassen sich 
noch weitere einbauen. Der einfachste Editor 
ist „ed“. Er ist ziemlich unhandlich, hat aber 
den Vorteil, daß sämtliche Editierfunktionen 
als Befehle verfügbar sind. Sie können des- 
halb Kommandodateien für die automatische 
Bearbeitung von Dokumenten zusammenstel- 
len. Die beiden anderen Editoren heißen „ded" 
und „vi“; sie sind wahlweise zeilen- oder bild- 
schirmorientiert zu verwenden. 

Abschließend weisen wir noch einmal dar- 
auf hin, daß hier aus Platzgründen nur ein klei- 
ner Teil der Möglichkeiten von Unix gezeigt 
werden konnte. Unix stellt zweifellos eins der 
wichtigsten modernen Betriebssysteme dar 
und hat viele Gestaltungsimpulse gegeben. 
Sein Einfluß ist unverkennbar. 


Executing... 
| pname | colour | 
(Spezifizierung eines bestimmten ee | 
I grey | 
| grey | 
| card punch | grey | 
| tapes | grey | 
a a ee eig | 
(4 tuples) 
continue 


* retrieve (p.pname,p.pnum,total=p.goh * p.weight) 


cessor } 
central processo (Aus den Datenbankfeldern lassen sich neue Werte berechnen 


card reäder 


| | 

| | 

| memory “\g und mit einem Titel versehen) 

| card punch | Executing... 

| disk drive | 

| paper tape reader ) | pnome | pnum | total | 

| tape drive | rss ee een | 

| paper tape punch | | byte-soap | 10| o| 

| tapes | | central processor | 1 101 

| Tine printer | | card reader j 11) ol 

le en | | memory | 2| 640 | 

(11 tuples) | card punch j 12 | ol 
| disk drive | 3] 1370| 

continue | paper tape reader | 13 | o| 

* retrieve (p.pname,p.coclour) (Änsprechen mehrerer Felder) | tape drive | al 1800 | 

* where p.colour = "grey” (Angabe des Suchkriteriums) | paper tape punch | 14| Ol 

“”\g | tapes I 5| 250 | 

Executing... | line printer | 6| 1734| 
a | 
(11 tuples) 

2100: line 1, Attribute 'coclour' not in relation parts continue 

(Fehlermeldung: Das falsch getippte Feld „colour“ ist nicht ”\qg (Rückkehr zur Shell-Ebene) 


auffindbar) 


* retrieve (p.pname,p.colour) 
* where p.colour = "grey" 
=* \g 


INGRES version 7.10 (10/27/81) logout 
Fri Nov 15 10:41:03 1985 

goodbye com-mcc -- come again 

% logout 
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Programmier-Service 


Mit unserem neuen Goldgräber- 
Spiel können Sie ohne finanziel- 
les Risiko ins Goldgeschäft ein- 
steigen. Es geht in diesem neuen 


Strategiespiel um hohe Einsätze - 
m O r & u SC sind Sie gerissen genug, die Kon- 
kurrenz auszustechen? 


oldmine ist ein Strategiespiel, in 

dem Sie die Inhaberrolle einer 
Minengesellschaft übernehmen. 
Ihre Aufgabe ist es, möglichst hohe 
Gewinne zu erwirtschaften. 

Strategiespiele wie auch Adventu- 
res sind meist in BASIC geschrie- 
ben, weil die Geschwindigkeit der 
Assembler-Programmierung unnötig 
ist. Wir haben Goldmine mit Grafik 
versehen, die den Fortschritt des 
Abbaus zeigt. Damit ist die Anforde- 
rung an die Speicherkapazität zwar 
größer, das Programm paßt aber 
trotzdem in einen 16K-Spectrum und 
sogar in den VC 20. 

Weil das Programm lang ist, ha- 
ben wir es in zwei Teile zerlegt. 
Diese Teilung wird auch in der Pro- 
grammbeschreibung beibehalten. 
Nach Eingabe von Teil 1 sollten Sie 
diesen mit SAVE abspeichern. Bei 
manchen Rechnem können Sie jetzt 
bereits starten und einige Statusmel- 
dungen und Optionen sehen. Weil 
der zweite Teil fehlt, werden Sie al- 
lerdings Fehlermeldungen erhalten. 

Zu Beginn des Spieles besitzen 
Sie bereits die Bergwerksgesell- 
schaft und zwei Millionen Dollar in 
bar. Dieses Geld soll in die Goldsu- 
che investiert werden. Es sind dann 
in 30 Runden so viel Gewinn wie 
möglich zu erzielen. Sie können al- 
lein oder gegen jemand spielen, der 
ein Konkurrenzunternehmen hat. 


Neues Glück 


Bevor Sie eine Mine ausbeuten kön- 
nen, müssen Sie erst ein passendes 
Gelände gefunden haben. Dafür 
muß ein Gutachten angefordert wer- 
den, welches Ihnen etwas über die 
Wahrscheinlichkeit einer erfolgrei- 
chen Grabung sagt. Sie müssen 
dann entscheiden, ob sich die Aus- 
beutung der Mine lohnt. 

Haben Sie sich für ein Gelände 
entschieden, finden dort aber kein 
Gold, so können Sie an einer ande- 
ren Stelle erneut Ihr Glück versu- 
chen. 

Haben Sie Gold gefunden, so kön- 
nen Sie das abgebaute Gold entwe- 
der im Tresor verwahren oder sofort 
an der Börse verkaufen. Bargeld hat 
Vorteile; allerdings gibt es Goldräu- 
ber, die Ihren Schatz auf listige 
Weise rauben könnten. 


Programmier-Service 


5 BORDER 6: PAPER 6: INK ®: CLS 

10 PRINT AT 9,2;‘“How many players? (1 or 
2)”: LET a$=INKEY$: IF a$=“"" THEN 
GOTO 19 

20 IF a$<“1” OR a$> “2” THEN GOTO 10 

30 LETp=VAL a$: LET nop=p 

49 DIM a(2,6): DIM c(2,5): DIM a$(p,8): DIM 
r(2): LET er= 10000 

50 LET r(1)=®: LET r(2)=P: LET 
a(1,1) = 29000000: LET a(1,2) = 2000090: 
LET a(2,1) = 2000090: LET 

a(2,2) = 2000000: LET a(1,3)=®: LET 

a(2,3)=®: LET a(1,4) = 100000: LET 
a(2,4) = 100090: LET a(1,5)=®: LET 
a(2,5)=P: LET a(1,6)=P: LET a(2,6)=P: 
PRINT 

70 FOR n=1 TO p: INPUT “Name of 
player[_1”’;(n);‘‘?”, LINE a$(n): NEXT n 

200 FOR n=1 TO 30: FOR m=1 TO nop 

202 BORDER 7: PAPER 7: INK ®: CLS 

210 PRINT PAPER 6;n: PRINT PAPER 
1; INK 6AT 0,6“ I IIGLIO 

ILODOIMOIDINDE & 

220 PRINT 'TAB 16;a$(1);: IFnop=2 THEN 
PRINT TAB 24;a$(2); 

230 PRINT “TOTAL ASSETS[_1$’’;TAB 
15;a(1,1);: IFnop=2 THEN PRINT TAB 
24;a(2,1); 

240 PRINT “CASH ASSETSUI [1$”; TAB 
15;a(1,2);: IFnop=2 THEN PRINT TAB 
24;a(2,2); 

259 PRINT “GOLD ASSETSTkg”’;TAB 
15;a(1,3);: IFnop=2 THEN PRINT TAB 
24;a(2,3); 

269 PRINT “COST TO MINEL]$”;TAB 
15;a(1,4);: IFnop=2 THEN PRINT TAB 
24;a(2,4); 

270 PRINT ’““NO. OF MINES”;TAB 15;a(1,5);: 
IFnop=2 THEN PRINT TAB 24;a(2,5); 

280 PRINT “MINE DEPTHUI U) [Im”’;TAB 
15;a(1,6);: IFnop=2 THEN PRINT TAB 
24;a(2,6); 

30® PRINT ” PAPER 4; INK ®;‘“Current 
Exchange Rate:—”: PRINT ‘“$”’;er;‘‘ [per 
kg of gold” 

400 PRINT ’ PAPER 5;‘“ > —";a$(m) 

50® PRINT PAPER 2; INK 7;‘1”;: PRINT “— 
Research and Development” 

519 PRINT PAPER 2; INK 7;2”;: PRINT “— 
Exploration and Report” 

520 PRINT PAPER 2; INK 7;‘°3”;: PRINT “— 
Increase mine depth by 200m” 

530 PRINT PAPER 2; INK 7;“4”;: PRINT “— 
Exchange gold for dollars” 

540 PRINT PAPER 2; INK 7;‘5”;: PRINT “— 
Pass’ 

550 PRINT : PRINT FLASH 1; PAPER 1; INK 
6;‘“Enter your instruction?” 

600 LET i$=INKEY$: IF i$=‘““” THEN GOTO 


600 

610 IF IK < “1” OR i$> “5” THEN GOTO 
609 

620 GOSUB VAL i$*1000 

708 IF a(m,2) <® THEN GOTO 7000 

710 LET er=er+ INT (RND*100®) — 200 

729 IF INT (RND*160®) — a(m,3) <® THEN 
GOSUB 900 

740 LET a(m,1) =a(m,2) + a(m,3)*er 

750 PAPER 7: INK ®: BORDER 7: CLS 

790 NEXT m 

800 NEXT n 

810 PAPER 5: BORDER 5: INK ®: CLS 

820 PRINT FLASH 1; INK 7; PAPER 2;AT 
6,105“ IGAME OVERDI” 

830 PRINT ’TAB 5;‘‘Total Assets of 
PRINT TAB 11;‘°$”;a(1,1) 

840 IF nop=2 THEN PRINT 'TAB 5;‘“Total 
Assets of [1”;a$(2): PRINT TAB 
11;“$”;a(2,1) 

850 PRINT ” PAPER 2; INK 6; FLASH 1;TAB 
2;“‘Press any key to play again’ 

869 IF INKEY$< > “” THEN GOTO 860 

870 IF INKEY$ =“ THEN GOTO 870 

880 RUN 

990 PAPER 2: INK 6: BORDER 2: CLS 

905 LET jk= INT (RND*190) + 50: IF 
jk>a(m,3) THEN LET jk= a(m,3) 

910 PRINT PAPER 6; INK 1; FLASH 
1;AT 98; ORDIODBL) 

N 

: PRINT INK 7,“ OD | 

have had_1””;jk;‘‘kg of”: PRINT 

E your gold assets stolen’”: LET 
a(m,3) = a(m,3) — jk: LET 
a(m,1) = a(m,1) — (jk*er) 

930 FOR x=1 TO 35: BEEP .05,40: BEEP 
.05,20: NEXT x 

940 BORDER 7: PAPER 7: INK ®: CLS: 
RETURN 


Commodore 64 


1 POKE52,48:POKE56,48:CLR:PRINT 
“[9” TAB(3)‘“DEFINING 
GRAPHICS,PLEASE WAIT ...” 

2 GOSUB60D0D 

3 POKE53272,28 

5 POKE53280,7:POKES3281,7:PRINT 


“ m” 
10 PRINT“ ug el ze] ze] Je] I] ie] 
1 I] ;TAB(5);“HOW MANY 
PLAYERS ? (1 OR 2)”:GETAS: 
IFA$ = “”THENI0 
20 IFA$ <“1”ORA$ > “2”THENIO 
30 P=VAL(A$):NO=P 
40 DIMA(2,6),C(2,5):ER = 10000 
50 R(1)=9:R(2) =B:A(1,1)= 2000000: 
A(1,2) = 2000000:A(2,1) = 2000000: 
A(2,2) = 2000000 
52 A(1,3) =0:A(2,3) = B:A(1,4) = 


>;a$(1): 


You 
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100000: A(2,4) =100000:A(1,5)=0: 
A(2,5) = 0:A(1,6)=0 

54 A(2,6) = O:PRINT “[J” 

70 FORN =1TOP:PRINT““NAME OF 
PLAYER”N;:INPUTAS(N):A$(N) = 
LEFT$(A$(N),10):NEXT 

200 FORN = 1T030:FORM=1TONO 


202 POKE53280,1: PONES2ON, 1 


PRINT“ 

205 FORF= loss: POKEF,®: 
NEXT 

210 PRINT RT Ari: je 

DOMDIONDEO 


” 


r 

220 PRINTTAB(16);A$(1);:|FNO=2 
THENPRINTTAB(28);A$(2); 

230 PRINT:PRINT“ TOTAL ASSETS”; 
TAB(15);A(1,1);:FNO=2THENPRINT 
TAB(27);A(2,1); 

240 PRINT:PRINT“CASH ASSETS”; 
TAB(15);A(1,2);:|FNO=2THEN 
PRINTTAB(27):A(2,2); 

250 PRINT:PRINT“‘GOLD ASSETS KG ”; 
TAB(15);A(1,3);:!FNO = 2THEN 
PRINTTAB(27);A(2,3); 

260 PRINT:PRINT“COST TO MINE $”; 
TAB(15);A(1,4);:IFNO=2 THEN 
PRINTTAB(27);A(2,4); 

270 PRINT:PRINT“NO. OF MINES”; 
TAB(15);A(1,5);:1FNO =2THEN 
PRINTTAB(27);A(2,5); 

280 PRINT:PRINT“MINE DEPTH M”; 
TAB(15);A(1,6);:1FNO=2THEN 
PRINTTAB(27);A(2,6); 

300 PRINT:PRINT“ WIE zÄCURRENT 
EXCHANGE RATE:—”:PRINT“£”ER; 

“TIPER KG OF GOLD” 

400 PRINT WIE > BIBIBI"; A$(M) 

500 PRINTG I) 1 EM 
RESEARCH AND DEVELOPMENT" 


510 PRINT“ 2 [1 — IIEXPLORATION 
AND REPORT” 

520 PRINT“ 3 LI—LIINCREASE 
MINE DEPTH BY 200M” 

530 PRINT“ 4 T1—TIEXCHANGE 


GOLD FOR DOLLARS 

549 PRINT“ 5ER PASS” 

550 PRINT“ 3: TAB ENTER YOUR 
INSTRUCTION”:POKE 198,0 

609 GETI$:IFI$ = ‘”’THEN60® 

619 IFIH< ““1”ORI$ > “5”THEN6Q® 

620 ONVAL(I$)GOSUB1999,2000, 
3000,4009 

700 IFA(M,2) <@THEN7000 

710 ER=ER + INT(RND(1)*1000) — 200 

718 J=P:K=® 

720 IFINT(RND(1)*1600) — A(M,3) 
<THENGOSUBIHO® 

740 A(M,1) = A(M,2) + A(M,3)’ER 

750 POKE53289,1:POKE53281,1: 


PRINT” 
790 NEXTM,N 


810 POKE53280,3:POKE53281,3: 
PRINTEZ” 
a FAN Wem TAB 


): 2 AÄGAME OVER GT I” 
20 PNTeTAL ASSETS OF 


AS(1):TAB(18);“ DIARE $”A(1,1) 

840 IFNO = 2THENPRINT“TOTAL 
ASSETS OFLI”;A$(2):TAB(18); 

ARE $”A(1,2) 

859 PRINT:PRINT:PRINT“ EM BE BIBI 
BIBI BIBI ZAPRESS ANY KEY TO PLAY 
AGAIN” 

860 POKE 198,0 

870 IFPEEK(197) 

880 RUN 3 

900 POKE53280,2:POKE53281,2: 

PRINT“CJ ER 

905 JK=INT(RND(1)"100) + 50:1F 
JK>A(M,3)THENJK = A(M,3) 

910 PRINT“ ug 3 ag Du u I; 
TAB)" AÄLIRLIODIBL) 
BOEORLIYD” 

920 PRINTTAB(9)“ I] =QYOU HAVE HAD 
“JKKG OF”:PRINTTAB(7)““YOUR GOLD 
ASSETS STOLEN” 

925 A(M,3) =A(M,3) 
A(M,1) — (JK’ER) 

930 FORF =0T024:POKE54272 + F,O: 
NEXT 

940 POKES4286,5:POKE54290,16: 
POKE54275,1:POKES4296,143: 
POKE54278,240 

950 POKE54276,65:FR = 5389:FOR 
T=110150 

960 FO=FR-+ PEEK(54299) "9.5: 
HF=INT(FO/256):LF= FO — HF'256: 
POKE54272,LF 

965 POKES4273,HF:NEXT:POKE 
54296,0 

970 POKE53280,1:POKE53281,1: 
PRINT“CJEM”:RETURN 


=64THEN870 


— JK:A(M,1) = 
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5 POKE36879,25: PRINT“ [JM ”:POKE 
36878,15 

10 PRINT“ESHOW MANY PLAYERS ?”: 
PRINT“BÄBH BAHT OR 2)”:GETAS: 
IFA$ = “”THEN1Q 

20 IFA$ <“1”ORA$ > “2”THENIQ 

30 P=VAL(A$):NO=P 

40 DIMA(2,6),C(2,5):ER = 10000 

50 R(1)=0:R(2) =0:A(1,1) = 2000000: 
A(1,2) = 2000000:A(2,1) = 2000090: 
A(2,2) = 2000000 

52 A(1,3) =0:A(2,3) = D:A(1,4) = 
100000:A(2,4) =100000:A(1,5) = 
A(2,5) = B:A(1,6) = 

54 A(2,6) = O:PRINT “[J” 
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70 FOR N=1TOP:PRINT JE] EB NAME 
OF PLAYER] ;N:INPUTAS(N): 
A$(N) =LEFT$(A$(N),9):NEXT 

200 FORN = 1T030:FORM = 1TONO 

210 PRINT I N;TAB(A) EU TIG 

I” 


OOLODOMDIONDEL 

220 PRINT“ ZU” AS(1);:IFNO=2THEN 
PRINTTAB(11);A$(2); 

230 PRINT:PRINT“ET”A(1,1);:1F 
NO =2THENPRINTTAB(11);A(2,1) 

240 PRINT:PRINT“C”A(1,2);:1FNO = 
2THENPRINTTAB(11);A(2,2) 

250 PRINT:PRINT“G”A(1,3);:1IFNO = 
2THENPRINTTAB(11);A(2,3); 

260 PRINT:PRINT“M”A(1,4);:1FNO = 
2THENPRINTTAB(11)5A(2,4); 

270 PRINT:PRINT“N”A(1,5);:1FNO = 
2THEN PRINTTAB(11);A(2,5); 

280 PRINT:PRINT“D”A(1,6);:1FNO = 
2THENPRINTTAB(11);A(2,6); 

300 PRINT:PRINT“QCURRENT EXCHANGE 
RATE:$”ER;“PER KG” 

400 PRINTBI UL ”;AS(M) 

500 PRINT a1 MM RESEARCH, 
DEVELOPMENT” 

510 PRINT“ EU zB 2 EXPLORATION, 
REPORT” 

520 PRINT SU3EM]INCREASE MINE 
DEPTHL) LIBY 200M” 

530 PRINT“ SI4M]EXCHANGE GOLD 
FORÜI ID) IDOLLARS” 

549 PRINT SUSE] PASS” 

550 PRINT“ SA MENTER YOUR 
INSTRUCTION”:POKE 198,0 

600 GETI$:IFI$ = “”THEN610 

619 IFIK<“1”ORI$> “5”THEN6O® 

620 ONVAL(I$)GOSUB1000,2000, 
3000,4000 

700 IFA(M,2) <OTHEN7000 

710 ER=ER + INT(RND(1)"1000) — 200 

718 J=0:K=0 

720 IFINT(RND(1)"1600) — A(M,3) 
<OTHENGOSUB9OD 

740 A(M,1) =A(M,2) + A(M,3)"ER 

750 PRINT LI” 

790 NEXTM,N 

810 PRINT EI” 

820 PRINT“ ug el el el I BI BI 


BIBI:S SA6AME OR ” 


830 PRINT“TOTAL ASSETS OF”: 
PRINTA$(1)“ARE $”A(1,1) 

840 IFNO = 2THENPRINT“TOTAL ASSETS OF 
»-PRINTA$(2)“ IARE $”A(1,2) 

850 PRINTWQ IM SÄPRESS ANY KEY TO 
PLAY” 

860 POKE198,0 

870 IFPEEK(197) 

880 RUN 

900 PRINT“KZ 

905 JK=INT(RND(1)"100) + 50:1FJK 
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> A(M,3)THENJK=A(M,3) 
910 FAN 
F| ORODOD Yo” 

915 FORDE= TOTBRFOKESETG; u 
+ SIN(DE)*10:NEXTDE:POKE36875,0 

920 PRINT TEIYOU HAVE HAD” 
JK“KG”:PRINT“OF YOUR GOLD 
ASSETSBE BE BASTOLEN” 

923 FORDE =1T03000:NEXT 

925 A(M,3) = A(M,3) — JK:A(M,1) = 
A(M,1) — (JK’ER) 

970 PRINT“CJE”:RETURN 


AcornB 


1 MODEI 

3 *FX11,0 

4 VDU 23;8202;0;0;9; 

5 FOR T=224 TO 238:VDU23,T:FOR P=1 

‚ TO 8:READ A:VDU A:NEXT:NEXT 

10 VDU 19,2,4,0,0,0,19,0,2,0,0,0: 
PRINTTAB(7,10)‘‘HOW MANY PLAYERS (1 
OR 2)”:A$=GET$ 

20 IFA$< > “1” AND A$< > “2” THEN 10 

30 P=VAL(A$):NOP=P 

40 DIM A(2,6),C(2,5),A$(P),R(2): 


ER = 10000 
50 R(1)=0:R(2) =0:A(1,1) = 2000000: 
A(1,2) = 2000000:A(2,1) = 2000000: 


A(2,2) = 200000B:A(1,3) = 0:A(2,3) = 
0:A(1,4) = 100000:A(2,4) = 100000: 
A(1,5) =:A(2,5) = B:A(1,6)=P: 
A(2,6) = ®:PRINT 
70 FOR N=1 TO P:PRINT“‘NAME OF PLAYER 
>-N5:INPUTA$(N):NEXT 
200 FOR N=1 TO 30:FOR M=1 TO NOP 
202 COLOUR131:COLOUR®:CLS 
210 COLOUR13®:PRINT;N; un n 
“TIGODODLODIMLII = 


COLOUR131 

220 PRINTTAB(20,3)A$(1);:IF NOP=2 THEN 
PRINTTAB(30,3)A$(2); 

230 PRINT’“TOTAL ASSETSTI$”TAB(19) 
A(1,1);:1F NOP=2 THEN PRINTTAB 
(29)A(2,1); 

240 PRINT’“CASH ASSETST] DI$”TAB(19) 


A(1,2);:1F NOP=2 THEN PRINTTAB 
(29)A(2,2); 
250 PRINT’““GOLD ASSETSTI I$”TAB(19) 
A(1,3);:1F NOP=2 THEN PRINTTAB 
(29)A(2,3); 

260 PRINT’““COST TO MINETI$”TAB(19) 
A(1,4);:1F NOP=2 THEN PRINTTAB 
(29)A(2,4); 

270 PRINT’““NO. OF MINEST] DI”TAB(19 
A(1,5);:1F NOP=2 THEN PRINTTAB 
(29)A(2,5); 

280 PRINT’“MINE DEPTH LI] I) Im” TAB 
(19)A(1,6);:1F NOP=2 THEN PRINT 
TAB(29)A(2,6); 

300 COLOUR1:PRINT”“CURRENT EXCHANGE 
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RATE;:—S”;ER“DIPER kg OF GOLD” 

408 PRINT:COLOUR131:COLOUR2:PRINT 
7 >—”;A$(M) 

500 PRINT’ LI—RESEARCH AND 
DEVELOPMENT” 

510 PRINT’“2LI—EXPLORATION AND 
REPORT” 

520 PRINT’“3 
200m” 

530 PRINT’“4LI—EXCHANGE GOLD FOR 
DOLLARS” 

540 PRINT “5 LI—PASS” 

B5QPRINT’’“ENTER YOUR INSTRUCTION” 

600 I$=GET$ 

610 IFI$< “1” OR I$> “5” THEN 600 

620 GOSUB VAL 1$*1009 

708 IF A(M,2) <® THEN 7000 

710 ER=ER + RND(1009) — 200 

720 IF RND(160®) — A(M,3) <® THEN 
GOSUB 990 

749 A(M,1) =A(M,2) + A(M,3)*ER 

750 COLOUR131:COLOURG:CLS 

790 NEXT 

800 NEXT 

810 CLS 

820 PRINTTAB(15,12)‘“GAME OVER” 

830 PRINT’TAB(5)““TOTAL ASSETS 
OFDI”A$()“TIAREUI$”;A(1,1) 

840 IFNOP=2 THEN PRINT’TAB(b) 

“TOTAL ASSETS OFUI”A$(2)“LIARE 

D$”;A(2,1) 

850 PRINTTAB(9,30)‘“PRESS ANY KEY TO 
PLAY AGAIN” 

860 G=GET 

880 RUN 

990 COLOUR129:COLOUR3:CLS 

905 JK=RND(100) + 5®:1F JK> A(M,3) 
THEN JK=A(M,3) 

919 PRINTTAB(12,13)““ IR 
BOEOROYD” 

920 PRINT“ TI TIYOU HAVE 
LOSTII”;JK;“ LIkg OF YOUR 
GOLD”:A(M,3) = A(M,3) — JK:A(M,1) 
=A(M,1) — JK’ER 

930 FOR X=1 TO 35:SOUND1, — 15,49,1: 
SOUND1, — 15,109,1:NEXT 

949 COLOUR131:COLOUR®:CLS:RETURN 


—INCREASE MINE DEPTH BY 


ODBI 


Tandy/Dragon 


10 PMODE 3,1:CLS 

20 DIM H(23),T(9),D(1),B(1),A(1,5), 
C(1,4),A$(1),R(1) 

40 FOR K=® TO 9:READ NU$(K):NEXT 

50 DATA NR2D4R2U4BR2,BFEND4BR2, 
R2D2L2D2R2BU4BR2,NR2BD2NR2BD2R2 
U4BR2,D2R2D2U4BR2,NR2D2R2D2L2BEA, 
D4R2U2L2BE2BR2,R2ND4BR2,NR2D4R2U2 
NL2U2BR2,NR2D2R2D2U4BR2 

60 PCLS3 

70 DRAW‘“BM36,23C2L35U6E3R3NU4R5SU 
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10E2RE3R3F4D3F4DF2DF2DF3D2”: 
PAINT(18,16),2 
80 DRAW““BM24,9C3G2D6F5R3E2UH2UHU 


H2UH2BM29,1NLDL2GR5D5BM14,6RBR3 
RBD4DBL4UBD3LBRARBD2LBL3LBD2RBR 


3RBD2LBL3LBD2RBR3RBD2LBLAL”: 
PAINT(26,15),3 

90 DRAW“BM2,21C4UBRAND3BR4AD”: 
GET(9,0) — (37,23),H,G 

100 PCLS:DRAW“BM7,0C4L6BD2ERFRE 
RBD2L7DR7DL5GNR3DNR3FNRADNR 
4AGNR3DNR3FNRADR2GL3FNR6FR3FL 
AGNRDR5DL3” 

110 GET(9,®) — (7,2),T,G:GET(9,3) 

— (7,10),D,G:GET(8,11) — (7,20), B,G 

120 PRINT@129,‘“HOW MANY PLAYERS (1 
OR2)LIP; 

130 A$=INKEY$:IF A$< “1” OR A$ > 
“2” THEN 130 

140 P=VAL(A$):NO =P:ER= 10000: 
A(9,0) = 2000099: A(9,1) = 2000000: 
A(1,0) = 2000090:A(1,1) = 2000000: 
A(B,3) = 100009:A(1,3) = 100000 

150 FORN =1TOP:PRINT:PRINT:PRINT 
“TIJNAME OF PLAYER”’;N;:LINE 
INPUTA$(N —1):1F LEN(A$(N —1)) 
>8 THEN A$(N—1)=LEFT$(A$ 
(N —1),8) 

160 NEXT 

200 FORN =®T029:FORM = BTONO — 1 

202 CLS 

210 PRINT@3,‘‘goldmine’; 

220 PRINTTAB(15);A$(9);:|F NO=2 
THEN PRINTTAB(24);A$(1) 

230 PRINT@32,‘‘TOTAL ASSETS’’;TAB 
(14);A(8,0):|F NO=2 THEN PRINT 
@55,A(1,0) 

240 PRINT@64,‘‘“CASH ASSETS”;TAB 
(14);A(8,1):|F NO=2 THEN PRINT 
@87,A(1,1) 

250 PRINT@96,‘‘GOLD ASSETS kg”; 
TAB(14);A(8,2):|F NO=2 THEN 
PRINT@119,A(1,2) 

260 PRINT@128,‘“COST TO MINE”; 
TAB(14);A(0,3):1F NO=2 THEN 
PRINT@151,A(1,3) 

270 PRINT@16®,‘“NO. OF MINES”; 
TAB(14);A(0,4):|F NO=2 THEN 
PRINT@183,A(1,4) 

280 PRINT@192,“MINE DEPTH m”; 
TAB(14);A(0,5):|F NO=2 THEN 
PRINT@215,A(1,5) 

300 PRINT@224,““CURRENT EXCHANGE 
RATE:—”:PRINTER;“PER KG OF GOLD” 

400 PRINT@339,A$(M) 

500 PRINT‘“I—RESEARCH AND 
DEVELOPMENT” 

510 PRINT‘‘2-EXPLORATION AND REPORT” 

520 PRINT‘“3—INCREASE MINE DEPTH BY 
200m” 


530 PRINT“‘4--EXCHANGE GOLD FOR 
DOLLARS” 

540 PRINT“5-PASS”; 

600 A$=INKEYS:IF A$< “1” OR A$> “5” 
THEN 600 

620 ON VAL(A$) GOSUB 1000,2000, 
3000,4000,5000 

700 IF A(M,1) <® THEN 7000 

710 ER=ER + RND(1000) — 200 

720 IF RND(1600) — A(M,2) <® GOSUB 909 

749 A(M,0) =A(M,1) + A(M,2)"ER 

750 CLS ' 

790 NEXTM,N 

810 CLS 

820 PRINT@138,“GAME OVER” 

830 PRINT@197, “TOTAL ASSETS OF ”; 
A$(0):PRINTTAB(11);A(,0) 

840 IF NO=2 THEN PRINTTAB(5);“TOTAL 
ASSETS OF ”;A$(1):PRINTTAB(11);A(1,0) 

850 PRINT@449, “PRESS ANY KEY TO PLAY 
AGAIN” 


860 IF INKEY$=“”° THEN 860 ELSE RUN 

900 CLS 

905 JK=RND(100) +49:1F JK>A(M,2) 
THEN JK=A(M,2) 

910 PRINT@Y,“ROODBUBDIEORLY” 

920 PRINT:PRINT“ DI DIDI DIYOU HAVE 
HAD”; JK;“KG OF”: PRINT 
«Qg DIYOUR GOLD ASSETS 
STOLEN”:A(M,2) =A(M,2) —K: 
A(M,0) = A(M,0) — JK“ER 

930 PLAY“ T4O1CDEFBAGFED” 

949 CLS:RETURN 


Zeile 10 legt die Mitspielerzahl fest, 
Zeile 20 sorgt dafür, daß die Eingabe 
im vorgegebenen Rahmen liegt. 
Zeile 30 setzt entsprechend der ge- 
wählten Spielerzahl die Variablen p 
und nop fest. 

In Zeile 40 wird eine Reihe von Ar- 
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rays DIMensioniert und der Gold- 
preis festgelegt. Array a speichert 
die Aktiva der einzelnen Mitspieler 
und ihrer Bergwerke, Array c enthält 
Informationen über die Minen. Im 
Array a$ stehen die Namen der 
Spieler, und Array r gibt an, obin der 
vom Spieler gewählten Mine bereits 
gearbeitet wird. Zeile 50 initialisiert 
die Aktiva und den Status der Berg- 
werke beider Mitspieler. r(l) und 
r(2) sind Null, wenn das Bergwerk 
noch nicht ausgebeutet wird und die 
erste Mine noch auf Ergiebigkeit un- 
tersucht wird. Die anderen Werte 
entsprechen folgenden Faktoren: 
a(l1) und a(2,1) enthalten den Wert 
des gesamten Besitzes der Spieler; 
a(l,2) und a(2,2) geben den jeweili- 
gen Kassenstand an; a(l,3) und 
a(2,3) speichern den Goldbesitz. In 


| 


a(l4) und a(2,4) stehen die Be- 
triebskosten. Die Anzahl der Minen 
speichern a(1,5) und a(2,5), die Tiefe 
der Schächte wird in a(16) und 
a(2,6) festgehalten. Zeile 70 ermög- 
licht die Eingabe der Spielernamen. 


Commodore 


Beim Commodore-64-Programm er- 
zeugen die Zeilen 1 bis 5 die Grafik, 
wobei ein Unterprogramm ab Zeile 
60000 die Grabungsarbeiten etc. 
darstellt. Beim VC 20 braucht man 
dafür eine 3K-RAM-Erweiterung. Die 
hochauflösende Grafik sollte durch 
die Blockgrafik des Gerätes ersetzt 
werden. In beiden Programmen legt 
Zeile 5 die Bildschirmfarbe fest und 
löscht den Schirm. Zeile 10 fragt die 
Spielerzahl ab, Zeile 20 prüft, ob da- 
bei l oder 2 eingegeben wurde. In 
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Zeile 30 werden je nach eingegebe- 
nem Wert P und NO festgesetzt. 
Zeile 40 dimensioniert zwei Arrays 
und legt den Goldkurs fest. Die Zei- 
len 50 bis 54 initialisieren die Anmays 
und löschen den Bildschirm. Die 
Werte des Arrays R geben an, ob die 
Arbeiten schon begonnen haben; 
wenn die Feldelemente 0 sind, 
herrscht noch Ruhe in der Mine. Das 
erste Elementepaar in A enthält die 
Aktivposten der beiden Spieler, das 
zweite Paar speichert den Kassen- 
bestand, das dritte den Besitz an 
Gold, das vierte die Betriebskosten, 
das fünfte die Anzahl der Gruben 
und das sechste die Tiefe der jewei- 
ligen Mine. Zeile 70 fragt nach dem 
Namen des (der) Spieler(s) und 
speichert die Antwort in Array AS. 


AcornB 


Das Acorn-Programm ruft in Zeile 1 
den MODE 1 auf. Zeile 3und 4 schal- 
ten die Autorepeat-Funktion der Ta- 
statur und des Qursors ab. Zeile 5 er- 
zeugt durch Lesen der DATA-Zeilen 
am Programmende die Grafik des 
Spiels. Mit einer Reihe von VDU-Be- 
fehlen erzeugt Zeile 10 die Bild- 
schirmfarben, bevor nach den Spie- 
lernamen gefragt wird. Zeile 20 
prüft, ob sich die Anzahl im zulässi- 
gen Bereich befindet. Nach der Ein- 
gabe werden entsprechend P und 
NOP festgesetzt. In Zeile 40 werden 
die Arrays DIMensioniert, und der 
Goldpreis ER wird festgelegt. Die 
Elemente der Arrays bestimmt Zeile 
50: R(1) und R(2) bleiben Null, so- 
lange noch nicht in den Minen gear- 
beitet wird. Das erste Elementepaar 
von Array A speichert die gesamten 
Aktiva der beiden Spieler, das 
zweite Paar den Barbestand, das 
dritte den Goldbesitz, das vierte die 
Betriebskosten, das fünfte die Zahl 
der Gruben, und Elementepaar 6 
enthält die Schacht-Tiefe. Zeile 70 
fragt nach dem (den) Spielernamen. 


Tandy/Dragon 


In der Programmversion für den 
Tandy und den Dragon schaltet 
Zeile lO in den PMODES und löscht 
den Bildschirm. Zeile 20 DIMensio- 
niert einige Arrays. 

Da einige Teile des Spiels auf 
dem hochauflösenden Grafikbild- 
schirm stattfinden, muß der Text ge- 
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legentlich über DRAW erzeugt wer- 
den. Die Zeilen 40 bis 110 enthalten 
ein Unterprogramm für das Erzeu- 
gen von Zahlen innerhalb der hoch- 
auflösenden Grafik. 

Die Zeilen 120 und 130 erfragen 

die Anzahl der Spieler und überprü- 
fen die jeweilige Eingabe. Entspre- 
chend setzt Zeile 140 P und NO fest. 
Als nächstes werden einige der Ele- 
mente von Array A definiert: A(0,0) 
und A(1,0) beinhalten die gesamten 
Aktiva der Spieler, das nächste Ele- 
mentepaar enthält die jeweiligen 
Barbestände, danach kommen der 
Goldbesitz und die Betriebskosten. 
Die Zeilen 150 und 160 fragen nach 
dem (den) Spielernamen. 
Im weiteren sind die Programme un- 
tereinander weitgehend gleich: Alle 
enthalten zwei FOR...NEXT- 
Schleifen, die in Zeile 200 anfangen 
und in den Zeilen 790 und 800 abge- 
schlossen werden. Diese Schleifen 
erzeugen das Menü der Wahlmög- 
lichkeiten und die Darstellung der 
aktuellen Situation der Gesellschaf- 
ten (Bestände, Kosten etc.). 


Bilanzen 


Die Variable N (n beim Spectrum) 
zählt die Anzahl der Runden, die be- 
reits durchlaufen worden sind. Die 
Variable nop (Spectrum), NO (Com- 
modore, Dragon und Tandy) bzw. 
NOP (Acom) gewährleistet, daß je- 
der Spieler 30mal an die Reihe 
kommt. Weiter hinten im Programm 
sorgen die gleichen Variablen für 
die Anzeige der jeweiligen Bilanzen 
der Spieler. 

Beim Spectrum, Commodore und 
Acorn sorgt Zeile 202 für die Einstel- 
lung der Bildschirmfarben, während 
beim Dragon und Tandy lediglich 
der Bildschirm gelöscht wird. Die 
Zeile 205 des Commodore-Pro- 
gramms leert die Sound-Register, 
die für die Soundeffekte benötigt 
werden. In allen Programmen er- 
zeugt Zeile 210 den Titelausdruck 
„SOLDMINE“. Zeile 220 stellt den 
Namen des Spielers auf dem Bild- 
schirm dar. Bei zwei Spielern wird 
nur der Name des zweiten ange- 
zeigt. 

Die Zeilen 230 bis 300 zeigen den 
Gesamtbesitz (TOTAL ASSETS), Bar- 
bestand (CASH ASSETS), Goldbe- 


sitz (GOLD ASSETS), Betriebskosten 
(COST TO MINE), Anzahl der Gru- 
ben (NO. OF MINES), Schachttiefe 
(MINE DEPTH) und den Börsenkurs 
(EXCHANGE RATE) an. Bei zwei 
Spielern werden jeweils beide 
Werte angezeigt. 

Zeile 400 zeigt den Namen des 
aktiven Spielers an. Die Zeilen 500 
bis 540 ermöglichen eine Auswahl 
zwischen Forschung und Entwick- 
lung (Research and Development), 
Erkundung und Gutachten (Explora- 
tion and Report), Erhöhung der 
Schachttiefe um 200 Meter (Increase 
mine depth by 200 metres), Wech- 
seln von Gold in Dollars (Exchange 
gold for dollars) oder Weiter (Pass). 
In den Programmen für den Spec- 
trum, Commodore oder Acorn wird 
der Spieler durch Zeile 550 nach sei- 
nen Anweisungen gefragt. Beim 
Dragon/Tandy-Programm geschieht 
dies nicht, weil der Bildschirm be- 
reits voll belegt ist. 

In den Zeilen 600 bis 620 werden 
INKEY$S- oder GET$-Anweisungen 
verwendet, um die Eingaben des 
Spielers zu registrieren. Diese wer- 
den auf Gültigkeit geprüft und leiten 
weiter zu den Unterprogrammen der 
gewählten Option. 

Zeile 700 prüft, ob die Bilanz des 
Unternehmens negativ ist, falls ja, 
wird das Spiel mit dem Abschluß- 
Unterprogramm beendet. Zeile 710 
erzeugt zufällige Änderungen des 
Goldkurses. 

In Zeile 720 wird eine Zufallszahl 
mit dem Goldbesitz verglichen. 
Dann wird entschieden, ob ein Gold- 
raub stattfinden soll. Das Raub-Un- 
terprogramm liegt zwischen Zeile 
900 und 940. Die Zeile 905 legt fest, 
wieviel Gold gestohlen wird, Zeile 
920 stellt die Menge am Bildschirm 
dar. 

In Zeile 740 wird die Bilanz ermit- 
telt. Zeile 350 erzeugt einen Reset 
der Bildschirmfarben und löscht den 
Bildschirm, bevor das Programm 
durch die NEXT-Anweisungen für 
eine weitere Runde nach Zeile 200 
springt. 

Die Zeilen 810 bis 840 bilden das 
Unterprogramm für das Spielende. 

Ein Unterprogramm zwischen 
Zeile 850 und 880 fordert zu einer 
neuen Runde auf, in der Sie wieder 
Ihr Glück versuchen können. 


1000 BORDER 6: PAPER 6: INK ®: CLS 

1010 PRINT PAPER 1; INK 6;AT 3,4; 
“TIRESEARCH & DEVELOPMENTUI”; 
AT 4,4;‘“(to lower mining costs) ” 

1020 PRINT AT 7,6;‘“How much would 
you’;TAB 5;“like to invest ? ($)””: INPUT rd 
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1050 LET a(m,4) = a(m,4) — INT (rd*.05) — 1 
1060 IF a(m,4) <® THEN LET a(m,4) =® 
1080 LET a(m,2) =a(m,2) — rd: LET 
a(m,1)=a(m,1)— rd 
1100 PRINT AT 13,3;“Your mining costs will 
be”’;TAB 3;“reduced by $’°;INT 
(rd*.05) + 1;‘“Iper 200m” 
1110 FOR z=1 TO 300: NEXT z 


1120 RETURN 


Commodore 64 


1000 POKES3280,7:POKE53281,7: 
PRNTMI” 

1010 PRINT“ WARESEARCH AND 
DEVELOPMENT”:PRINT“(TO LOWER 
MINING COSTS)” 


1020 PRINT ga] 1] I] EJHOW MUCH 
WOULD YOU LIKE TO INVEST 
($)”:INPUTRD 

1030 R1=INT(RD'.5) —1 

1050 A(M,4) =A(M,4) —R1 

1060 IFA(M,4) <OTHENA(M,4) = 

1080 A(M,2) =A(M,2) —RD:A(M,1) 
=A(M,1) RD 

1100 PRINT ee] u] MIBI BIBI BI 
YOUR MINING COSTS WILL BE REDUCED 
BY:”:PRINT“$”;R1 +1; 

1110 PRINT “PER 200M”:FORZ=1 
T02309:NEXT 

1120 RETURN 


Commodore VC 20 


1000 PRINT” 

1010 PRINT WIRESEARCH, 
DEVELOPMENT”: PRINT“ 2 
TO LOWER MINING COSTS” 

1020 RD=0: PRINT 
HOW MUCH WOULD YOU LIKE 
TO INVEST ($)”:INPUTRD 

1030 R1=INT(RD'.5) — 

1050 A(M,4) = A(M,4) — 

1060 IFA(M,4) <OTHENA(M,4) = 

1080 A(M,2) = A(M,2) — RD:A(M,1) 
=A(M,1) RD 

1100 PRINT“ I Je] In] MI YOUR 
MINING COSTS WILL BE REDUCED 
BY:”:PRINT“$”;R1 +1““PER 200M” 

1110 FORZ=1T02300:NEXT 

1120 RETURN 


AcornB 


1000 COLOUR129:COLOUR2:CLS 

1010 PRINTTAB(8,3)“RESEARCH AND 
DEVELOPMENT”TAB(9,5)““(LOWERS 
MINING COSTS)” 

1020 PRINT““HOW MUCH WOULD YOU LIKE 
TO INVEST ($)”:INPUTRD 

1050 A(M,4) = A(M,4) — INT(RD'.05) 

1060 IF A(M,4) <® THEN A(M,4) = 

1080 A(M,2) = A(M,2) — RD:A(M,1) 
=A(M,1)— RD 

1100 PRINTTAB(9,13)“YOUR MINING COSTS 


) 
1 


WILL BE REDUCED BY U] $”; 
INT(RD*.05);‘“LIPER 200m” 
1110 FOR Z=1 TO 4009:NEXT 
1120 RETURN 
Tandy/Dragon 


1000 CLS 

1010 PRINT@3,“research and 
development”:PRINT@35,‘ (TO 
LOWER MINING COSTS)” 

1020 PRINT:INPUT‘HOW MUCH WOULD YOU 
LIKE TO! INVEST ($)”;RD 

1030 IF RD<® THEN 1000 

1050 A(M,3) =A(M,3) — INT(RD/20) — 
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1069 IF A(M,3) <® THEN A(M,3) = 

1080 A(M,1) =A(M,1) — RD:A(M,®) 
=A(M,0)—RD 

1100 PRINT@257,“YOUR MINING 

COSTS WILLBEO ID U DD 

REDUCED BY $”;INT(RD/20) +1; 

“PER 200m” 

1110 FORZ=1T02000:NEXT 
1120 RETURN 

Bei den Spectrum-, Commodore 
64- und Acorn-Programmen erzeugt 
Zeile 1000 die Bildschirmfarben und 
löscht den Bildschirm. Beim VC 20 
und der Dragon/Tandy-Version blei- 
ben die Farben unverändert, der 
Bildschirm wird nur gelöscht. Zeile 
1010 stellt die Überschrift dar, bevor 
mit Zeile 1020 gefragt wird, wie hoch 
die Investition in Forschung und Ent- 
wicklung sein soll. Die Variable RD 
(Spectrum rd) speichert diesen Zah- 
lenwert. 

Zeile 1050 senkt die Betriebsko- 
sten der Goldmine. Zeile 1060 sorgt 
dafür, daß die Betriebskosten nicht 
negativ werden. Die Anpassung der 
Bilanz und des Barbestandes nach 
der Investition erledigt Zeile 1080, 

Das Ausmaß der Betriebskosten- 
erspamis wird durch Zeile 1100 
(beim Spectrum auch Zeile 1110) an- 
gezeigt. Zeile 1110 beinhaltet eine 
FOR...NEXT-Schleife, durch die 
das Verlassen des Unterprogramms 
ein wenig verzögert wird. 


200® PAPER 4: BORDER 4: INK ®: CLS 

2030 LET r(m)=P: LET c(m,1) = INT 
(RND*99) +19: LET c(m,2) = INT 
((RND*5) +2)'200: LET c(m,3) = INT 
(RND*200) +1: LET II= INT (RND'3) — 1 

2050 LET c(m,4) =c(m,2) + 11'200 

2070 LET c({m,5) =®: LET kk=INT (RND* 
100): IFkk<cc({m,1) THEN LET c(m,5) = 1 

2080 PRINT PAPER 6; INK Q;AT 2,6;“ 
SCIENTIFIC REPORTUI”: PRINTAT 5,5; 
“Chance of gold= T1”;c(m,1);‘‘%”: 
PRINT AT 7,5;““Expected Depth= []”; 

c(m,2);‘“‘m’”: PRINT AT 9,5; ;“Expected. 

amount = []”’;c(m,3);‘kg” 

2100 LET z=INT (RND"150000): LET a(m,2) 
=a(m,2) —z: LET a(m,1)=a(m,1) —z 

2110 PRINT FLASH 1;AT 12,9;‘“Would you like 
to mine? (y or n)” 

2120 LET r$=INKEY$: IF r$=‘“”" THEN 
GOTO 2120 

2130 IF r$=““y” THEN LET a(m,6) = 
r(m)=1: 60T0 3000 


d: LET 


2500 RETURN 


Commodore 64 


2000 POKE53280,5:POKE53281,5: 
PARAT”; 

2030 R(M) = :C(M,1) =INT(RND(1)'90) + 
10:C(M,2) = INT((RND(1)"5) + 2)"200 

2031 C(M,3) = INT(RND(1)"200) +1: 

= INT(RND(1)'3) —1 

2050 C(M,4) =C(M,2) + LL'200 

2070 C(M,5) =0:KK=INT(RND(1) 
100):1FKK <C(M,1)THENC(M,5)=1 

2080 PRINT“ 20 el 0 BIBI BI BIBI 
BE ISCIENTIFIC REPORTL]” 

2081 PRINTOI BIBI BIBI BI 
CHANCE OF GOLD =";C(M,1)“%” 

2082 PRINT OBERE BI BIBI 
EXPECTED DEPTH=";C(M,2);“M” 

2083 PRINT BIBI BIBI BI 
EXPECTED AMOUNT”;C(M,3) “KG” 

2100 Z=INT(RND(1)"150000):A(M,2) 
= A(M,2) —Z:A(M,1)=A(M,1)—Z 

2110 PRINT I SMWOULD YOU LIKE 
TO MINE (Y OR N)?” 

2120 GETR$:IFR$< > “Y”ANDR$< > 
“N”THEN2120 

2130 IFR$= “Y”THENA(M,6) 
=1:60T03000 

2500 RETURN 


Commodore VC 20 


2000 PRINT CI” 

2030 R(M) = :C(M,1)=INT(RND(1)"90) 
+10:C(M,2) = INT((RND(1)"5) +2) "200 

2031 C(M,3) = INT(RND(1)"200) +1: 

=INT(RND(1)'3) — 1 

2050 C(M,4) = C(M,2) + LL'200 

2070 C(M,5) =0:KK=INT(RND(1)* 
100):1FKK <C(M,1)THENC(M,5) =1 

2080 PRINT“ ZU BEBESCIENTIFIC REPORT” 

2081 PRINTER I] I] IMCHANCE OF 
GOLD = ";C(M,1)“%” 

2082 PRINT] WJEXPECTED DEPTH 
=";C(M,2);“M” 

2083 PRINT] IEXPECTED AMOUNT”; 
C(M,3)““KG” 

2100 Z=INT(RND(1)"150000):A(M,2) 
= A(M,2) —Z:A(M,1)=A(M,1)—Z 

2110 PRINT] Id SM WOULD YOU LIKE TO 
MINEBIBE BIBI BIBI EA (Y OR N)?” 

2120 GETRS:IFRS< > “Y”ANDRS< > 
“NTHEN2120 

2130 IFR$= “Y”THENA(M,6) 
=1:607T03000 

2500 RETURN 


AcornB 


2000 COLOUR129:COLOUR3:CLS 
2030 R(M)=0:C(M,1)=RND(99) +9: 
C(M,2) = RND(5)'200 + 400:C(M,3) 


=®:R(M) 


=P:R(M) 
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=RND(200):LL=RND(3)—2 

2050 C(M,4) = C(M,2) + LL'200 

2070 C(M,5) =0:KK=RND(100):1F 
KK<C(M,1) THEN C(M,5)=1 

2080 PRINTTAB(10,3)“SCIENTIFIC 
REPORT”TAB(10,10)“CHANCE OF 
GOLD = I1”;C(M,1);“%”TAB(10,12) 
“EXPECTED DEPTH= D1”;C(M,2); 
“m”TAB(10,14)“EXPECTED 
AMOUNT= D1”;C(M,3);“KG” 

2100 Z=RND(150000):A(M,2) = 
A(M,2) — Z:A(M,1) = A(M,1)—Z 

2110 PRINTTAB(5,20)““WOULD YOU LIKE TO 
MINE (Y/N)?” 

2120 R$=GET$ 

2130 IF R$=““Y” THEN A(M,6) =: 
R(M) =1:60T0 3000 

2500 RETURN 


Tandy/Dragon 


2000 CLS 

2030 R(M) = :C(M,®) =RND(9P) +9: 
C(M,1) = (RND(6) + 1)"200:C(M,2) 
=RND(20®):LL=RND(3) —2 

2050 C(M,3) =C(M,1) + LL'200 

2070 C(M,4) =®:KK=RND(109) — 1: 
IFKK<C(M,®) THEN C(M,4) = 1 

2080 PRINT@6,“ scientific report’: 
PRINT@129,“‘CHANCE OF GOLD=""; 
C(M,B);“‘%”:PRINT@193, 
“EXPECTED DEPTH ="';C(M,1); 
“m”:PRINT@257,““EXPECTED 
AMOUNT = ";C(M,2);“kg” 

2100 Z=RND(150000) — 1:A(M,1)= 
A(M,1) —Z:A(M,®) = A(M,ß) —Z 

2110 PRINT@353,‘“WOULD YOU LIKE TO 
MINE (Y/N) ?” 

2120 R$=INKEY$:IFR$< >“Y” AND 
R$< > “N” THEN 2120 

2130 IF R$=““Y” THEN A(M,5) =®: 
R(M) =1:G60T03000 

2500 RETURN 


Bei allen Rechnern wird der Bild- 
schirm durch Zeile 2000 gelöscht. 
Spectrum, Commodore und Acorn 
wechseln auch die Bildschirmfarbe. 
Zeile 2030 setzt R(M) (beim Spec- 
trum r(m)) auf Null, um festzuhalten, 
daß noch nicht in der Mine gearbei- 
tet wird. Diese Zeile erzeugt auch 
eine Vorentscheidung, ob, wieviel 
und in welcher Tiefe Gold gefunden 
wird. LL (oder 11) ist eine Zufallszahl 
zwischen -1 und |], die in der näch- 
sten Zeile für die Festsetzung der 
tatsächlichen Fundtiefe gebraucht 
wird; der Wert C(M,2) war ja nur 
eine vorläufige Tiefenangabe. 

Zeile 2050 setzt C(M,4) gleich 
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C(M,2) plus/minus 200 Meter, also 
200mal LL. Als nächstes entscheidet 
Zeile 2070, ob die Mine überhaupt 
Gold enthält. Bei C(M,5) gleich Null 
ist nichts zu finden. KK ist ein Zu- 
fallswert zwischen O0 und 99. KK wird 
mit der Wahrscheinlichkeit ver- 
glichen, Gold zu finden — ist KK klei- 
ner, wird C(M,5) auf Eins gesetzt, um 
anzuzeigen, daß eine Goldader vor- 
handen ist. 

Zeile 2080 konfrontiert den Spieler 
mit einem wissenschaftlichen Gut- 
achten über die Mine; beim Commo- 
dore liegt dieser Teil in den Zeilen 
2080 bis 2083. Obwohl dem Spieler 
gesagt wird, wo ein Fund wahr- 
scheinlich ist, bleibt das endgültige 
Ergebnis dem Zufall überlassen. Der 
Spieler muß sich also entscheiden, 
ob er ein Risiko eingehen will oder 
nicht. 

Jetzt aber zu den Kehrseiten: Das 
Gutachten kostet Geld. Der Preis ist 
noch unbestimmt; der Betrag kann 
zwischen O und 150000 $ schwan- 
ken, also dem Wert von Z in Zeile 
2100. Diese Kosten belasten natür- 
lich die Bilanz erheblich. 

Jetzt endlich kann der Grubenbe- 
sitzer mit den Grabungsarbeiten be- 
ginnen: Zeile 2110 fragt dazu 
„WOULD YOU LIKE TO MINE?" Bei 
einer positiven Antwort springt das 
Programm zum Unterprogramm für 
die Grabungsarbeiten in Zeile 3000. 


300® BORDER 6: PAPER 6: INK 1: CLS 

3010 IF r(m)=® THEN PRINT FLASH 1;AT 
9,2;““You have not explored yet!”: FOR z=1 
TO 1®: BEEP .3,— 10: NEXT z: RETURN 

3020 BORDER 5: INK ®: PAPER 4: CLS 

3022 PRINT PAPER 5;TAB 14;CHR$ 147;CHR$ 
148;CHR$ 149;TAB 14;CHR$ 150;CHR$ 
151;CHR$ 152;CHR$ 153;TAB 13;CHR$ 
154;CHR$ 155;CHR$ 156;CHR$ 157;CHR$ 
158;TAB 31;CHR$ 32 

3025 FOR z=1 TO 32: PRINT CHR$ 144;: 
NEXT z 

3060 PRINT AT 4,0;: FOR z=100 TO 1400 
STEP 100: PRINT TAB 4—LEN STR$ z;z: 
NEXT z 

3090 LET a(m,2) =a(m,2) — a(m,4): LET 
a(m,1) =a(m,1) — a(m,4): LET 
a(m,6) =a(m,6) + 200: PAUSE 30 

3100 PRINT AT 3,15;CHR$ 146: FOR f=4 TO 
(a(m,6)/10®) +3: PRINT AT f,15;CHR$ 
145: FOR w=1 TO 10: BEEP .01,— 20: 
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NEXT w: NEXT f 

3120 IF a(m,6) =c({m,4) AND c(m,5) =1 
THEN GOTO 3500 

3130 PRINT FLASH 1; PAPER 5;AT 6,18;‘‘No 
gold yet!”: IF a(m,6) =c(m,2) + 200 THEN 
PRINT FLASH 1; PAPER 1; INK 6;AT 
18,0;‘This mine doesn’t contain any gold. 
Try starting another one.”: FOR z=1 TO 1P: 
BEEP .5,— 20: NEXT z: LET a(m,6) = 
LET r(m)=® 

3140 PAUSE 150 

3300 RETURN 

3500 PRINT PAPER 6; INK 2; FLASH 1;AT 
f,12;“G OLD”: FOR z= — 20 TO 5: 
BEEP .017,z: NEXT z: PAUSE 75 

3550 LET a(m,5) =a(m,5) +1: LET 
a(m,3) = a(m,3) + c(m,3): LET 
a(m,1) =a(m,1) + (a(m,3)*er): 
LET a(m,6) =®: LET r(m)=®: GOTO 3300 


Commodore 64 


3000 POKE53280,7:POKE53281,7 

3010 IFR(M) < > OTHEN3020 

3011 PRINT“ u au] zu] Del Jul ze] Je In] 
BIBI BI Z4 EB YOU HAVE NOT EXPLORED 
YET!”:FORZ=1T02300:NEXT:RETURN 

3020 POKE53280,3:POKE53281,5: 

PRINT“ CI” 

3022 PRINTTAB(14);“ FA”: PRINT 
TAB(14);“ PLN EILS”:PRINTTAB 
(I AOLNDAT” 

3025 FORZ=OT039:PRINT“I@”;:NEXT 

3060 NETTE; 
FORZ = 100T01400STEP100:PRINT 
TAB(5 — LEN(STR$(Z)));Z:NEXT 

3090 A(M,2) = A(M,2) — A(M,4):A(M,1) = 
A(M,1) —A(M,4):A(M,6) = A(M,6) + 200 

3095 FORF=OTO9O:NEXT 

3100 PRINT EI 10 In] 0 BI BE BI BI BI 
BIBIBIEIBIBIBIBI 

3101 PRINT“ OJBEBIBIBI BIBI 
BIBIBIEIBIBIBIIT” 

3102 FORF=2T0 A(M,6)/100:PRINT 
“EIBIBIBIBIBIBIBIEI BIBI 
BIBIBIBIIT” 

3104 POKE54272,33:POKE54273,33: 
POKES4277,15:POKES4296,15 

3105 POKE54276,129:FORZ=1T0240: NEXT 

3110 NEXT:POKE54296,0 

3120 IFA(M,6) = C(M,4)ANDC(M,5) 
=1THEN 3500 

3130 PRINT 
Del Je el I] a] el ul el el el el 


EU SI BIBI BIBI BIBI BIBI 
NO GOLD YET!!!” 


3131 IFA(M,6) < > C(M,2) + 200THEN 3149 

3132 PRINT“BEBEEMTHIS MINE DOESN’T 
CONTAIN ANY GOLD. TRY) DISTARTING 
ANOTHER ONE.” 

3134 A(M,6) =0:R(M)=® 


3120 IFA(M,6) = 


3140 FORF=1T02500:NEXT 

3300 RETURN 

3500 PRINT“: FORZ=1 
TOA(M,6)/100:PRINT:NEXT 

3505 PRINT“BEBE BI BIBI BIBI BIBI 
'ITIE F sfgepjeitep] 

3510 FORF=54272T054296:POKEF,O:NEXT 

3520 POKES4284,15:POKE54283,17: 
POKES4296,14 

3530 FORF=64T0124 

3549 POKES4280,F:FORG = 1T020: 
NEXT:NEXT 

3550 FORF=124T064STEP — 1:POKE 
54280,F:FORG = 1T020:NEXT:NEXT 

3560 POKE54296,0 

3570 A(M,5) = A(M,5) + 1:A(M,3) = A(M,3) 
+ C(M,3):A(M,1) =A(M,1) + A(M,3)"ER 

3580 A(M,6) =0:R(M) = 0:G0T03300 


Commodore VC 20 


3000 POKE 36879,25 
3010 IFR(M) < > OTHEN3020 
3011 PRINT“ ug ae Id Del Del ul u I De] 
EEYOU HAVE NOT EXPLORED YET!”: 
FORZ=1T02300:NEXT:RETURN 
3020 PRINT“Z UI” 
3022 PRINTTAB(14);" IWW”: 
PRINTTAB(14 EHI EN” 
3025 FORZZ= 1T015:FORZ = 0T029: 
PRINT“ 9 7D”5:NEXT:PRINT:NEXT 
3060 PRINT“ EI I I] I] Il El”; FOR Z= 
100T01400STEP10@:PRINT“ 34”Z: NEXT 
3090 A(M,2) = A(M,2) —A(M,4):A(M,1) 
= A(M,1) —A(M,4):A(M,6) =A(M,6) 
+ 200 
3095 FORF=@TO9B:NEXT 
3100 PRINT“ EI I 1] u] I] "SPC(15) 
| ” 


3102 FORF=2TO A(M,6)/100:PRINT 
SPC(15)“ SUID”:POKE 36877,128+ F*3 

3104 FORDE =5T015STEP.3:POKE36878, 
DE:NEXT:POKE36877,0 

3110 NEXT 


C(M,4)ANDC(M,5) 
=1THEN 3509 

3130 PRINT“ EI 1 1] I) 0 el el 
Dec] Juc] ze] De] De] I) ed) u] a] ze] el el 


BI BEBEBENO GOLD YET!!!” 
3131 IFA(M,6) < > C(M,2) + 200THEN3140 
3132 PRINT<EBHBÄTHIS MINE 
DOESN’T ICONTAIN ANY GOLD. 
TRY OISTARTING ANOTHER ONE.” 
3134 A(M,6) =0:R(M)=® 
3140 FORF=1T03009:NEXT 
3300 RETURN 
3500 PRINT “EI ”:FORZ=1T0 
A(M,6) /100:PRINT:NEXT 


3505 PRINT BIBIBIBIBIBIBIBII 
BIBI: 
3508 FORDE = DSOTOTAISTER-1: POKE 


36876,DE:NEXT 
3510 FORG = 1T02000:NEXT 
3570 A(M,5) =A(M,5) + 1:A(M,3) =A(M,3) 
+ C(M,3):A(M,1) =A(M,1) + A(M,3)*ER 
3589 A(M,6) =®:R(M) = 0:G0T03300 


AcornB 


3000 COLOUR130:COLOURB:CLS 
3010 IF R(M)=® THEN PRINTTAB(6,12) 
«YOU HAVE NOT EXPLORED YET!”:FORZ= 
1 TO 19:SOUND1, — 15,100,1:SOUND1,0, 
1,1:NEXT:Z=INKEY(300):RETURN 
3020 CLS 
3022 VDU 31,16,3,224,225,226,31,16,4, 227, 
228,229,230,31,15,5,231,232,233, 234,235 
3025 PRINT:FOR Z=1 TO 40:VDU236:NEXT 
3069 PRINT:FOR Z=100 TO 1400 STEP 
100:PRINTTAB(4 — LENSTR$Z);Z:NEXT 
3090 A(M,2) = A(M,2) — A(M,4):A(M,1) 
= A(M,1) —A(M,4):A(M,6) =A(M,6) + 
200:2 = INKEY(60) 
3100 VDU31,17,6,238:FOR F=7 TO 
(A(M,6)/100) + 7:VDU31,17,F—1,237: 
FOR Z=1 TO 13: SOUNDO, — 15,6,1: 
SOUND®,0,0,1:NEXT:SOUND16,0,0,1:NEXT 
3120 IF A(M,6)=C(M,4) AND C(M,5) 
=1 THEN 3500 
3125 COLOUR1 
3130 PRINTTAB(20,10)““NO GOLD YET!”:IF 
A(M,6) =C(M,2) +200 THEN COLOUR?: 
PRINTTAB(0,29)”THIS MINE DOESN’T 
CONTAIN ANY GOLD. TRY STARTING 
ANOTHER ONE.”:A(M,6) = :R(M)=® 
3140 FOR Z=1 TO 4000:NEXT 
3300 RETURN 
3500 COLOUR1:PRINTTAB(14,F)“GLIODL 
D”:FOR Z=0 TO 250 STEP 19: 
SOUND1, — 15,2,1:NEXT:Z=INKEY (150) 
3550 A(M,5) = A(M,5) + 1:A(M,3) = 
A(M,3) + C(M»3):A(M,1) =A(M,1)+ (A(M, 
3)*ER):A(M,6) =®:R(M) =0:60T0 3300 


Tandy/Dragon 


3000 CLS 
3010 IF R(M)=® THEN PRINT@66, “YOU 
HAVE NOT EXPLORED YET !”;:FORZ=1 
T010:SOUND129,1:NEXT:RETURN 
3015 IF A(M,5) >® THEN LINE(140,40) 
— (157,191) ,PRESET,BF:GOT03090 
3020 PCLS:SCREEN1,0:COLOR3:LINE 
(0,0) — (255,31) ,PSET,BF 
3022 PUT(131,8) — (168,31),H,PSET 
3025 FORZ=0TO 31: PUT(Z'8,32) — 
(Z'8+ 7,34), T,PSET:NEXT 
3060 FORZ=100 TO 1409 STEP 100: 
2$ =STR$(Z) + “ — ”:DRAW“C4SBBM” 
+STR$(49— 8°LEN(Z$)) +,“ +STR$ 
(32+ 10°Z/109):GOSUB9ODB:NEXT 
3090 SCREEN1,0:A(M,1)=A(M,1)— 
A(M,3):A(M,D) = A(M,D) — A(M,4): 
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A(M,5) = A(M,5) +200 

3100 PUT(145,32) — (152,39),D,PSET: 
FORF=4T0(A(M,5)/100) + 3:PUT(145, 
F*10) — (152,F"10-+ 9),B,PSET: 
PLAY“T5001BDBDEBDBDE”:NEXT 

3120 IF A(M,5)=C(M,3) AND C(M,4) 
=1 THEN 3500 

3125 FORZ=1T01009:NEXT 

3130 PRINT@40,“ NO GOLD YET! ”;: 
IF A(M,5) =C(M,1) +200 THEN 
PRINT@128,“ THIS MINE DOESN’T 
CONTAIN ANYD ID OIGOLD.DITRY 
STARTING ANOTHER ONE.) ”;:PLAY 
“T5003CDEFG”:A(M,5) = 0: R(M) = 

3140 FORZ=1102500:NEXT 

3300 RETURN 

3500 F=40 + A(M,5)/10:COLOR2:LINE 
(148,F) — (157,F + 5),PSET,BF 

3510 FORZ=1T010:PLAY“T502CA”:PUT 
(149,F) — (157,F +5),H,NOT:NEXT 

3520 FORZ=1T02000:NEXT 

3550 A(M,4) = A(M,4) +1:A(M,2) =A(M}2) 
+ C(M,2):A(M,0) = A(M,D) + (A(M,2) 
ER): A(M,5) = 0:R(M) = 0:60T03300 


Dieses Unterprogramm kann von 
zwei verschiedenen Stellen im Ab- 
lauf angesprochen werden, entwe- 
der aus dem Unterprogramm Erkun- 
dung und Gutachten oder bei Ent- 
scheidung zugunsten einer weiteren 
Vertiefung des Minenschachtes um 
200 Meter (Option 3). 

Wie gewöhnlich löscht die erste 
Zeile zunächst den Bildschirm bzw. 
ändert die Farben. Zeile 3010 prüft, 
ob die Erkundungsphase abge- 
schlossen ist, bevor mit den Arbei- 
ten begonnen wird. Beiden Commo- 
dore-Rechnern dienen die Zeilen 
3010 und 3011 diesem Zweck und er- 
zeugen auch entsprechende Mel- 
dungen am Bildschirm. Zeile 3020 
bereitet den Bildschirm wieder für 
die Anzeige vor. 

Zeile 3022 bis 3090 erzeugen die 
Grafik der Goldmine. Zeile 3100 illu- 
striert die Grabungsarbeiten und 
sorgt für Soundeffekte. Bei den 
Commodore-Programmen werden 
hierfür Zeile 3100 bis 3110 genutzt. 

Zeile 3120 prüft, ob der Schacht 
bereits auf dem Niveau des Goldes 
angekommen ist und ob überhaupt 
Gold vorhanden ist (es ist auch mög- 
lich, die richtige Tiefe zu erreichen, 
ohne daß tatsächlich Gold an dieser 
Stelle liegt.) Wenn Sie fündig gewor- 
den sind, verzweigt das Programm 
zu Zeile 3500, die den Erfolg meldet 


und ein Lied spielt; beim Commo- 
dore erstreckt sich dieser Pro- 
grammteil wiederum über mehrere 
Zeilen. Zeile 3550 bringt die Bilanz 
des Spielers immer auf den neue- 
sten Stand. 

Falls nichts gefunden wurde, läuft 
das Programm mit Zeile 3130 weiter. 
Wenn bereits über den erwarteten 
Fundort hinaus gegraben wurde, er- 
fährt der Spieler, daß dort nichts zu 
finden ist. Vor diesem Punkt wird nur 
angezeigt „NO GOLD YET!" — „Bis 
jetzt noch kein Gold!“ 


40090 PAPER 6: INK 1: BORDER 6: CLS 

4020 PRINT INVERSE 1;AT 2,75“ LIEXCHANGE 
AGENCY LI ”:PRINT AT 6,0;‘“The current 
exchange rate is:—"";AT 8,5;“1 kg of 
gold = [1$”;er;AT 12,2;‘“Enter no. of kg to 
exchange’”’: INPUT nte 

4070 IF nte> a(m,3) THEN PRINT FLASH 1;AT 
16,0;“You do not have that much gold!” 

4080 LET nte=INT nte 

4090 IF nte> a(m,3) OR nte<® THEN GOTO 
4020 

4095 PRINT AT 16,0;CHR$ 32;TAB 31;CHR$ 32 

4100 LET a(m,3) = a(m,3) —nte: LET 
a(m,2) = a(m,2) + (nte*er): LET 
a(m,1)=a(m,1) + (nte’er) 

4130 PRINT PAPER 5;AT 16,1;nte;‘‘kg 
exchanged for[1$”’;nte*er: PAUSE 170: 
RETURN 

500® RETURN 


Commodore 64 


4000 POKES3280,:POKES3281,7: 
PRINT IE” 
oo 


4020 PRINT“ ii) 

EXCHANGE EAGENCY 

4030 PRINT‘ u] U] MITHE CURRENT 
EXCHANGE RATE IS:—” 

4049 PRINT:PRINT“BEBEBET KG OF 
GOLD=$”ER 

4050 PRINT:PRINT:PRINT“ENTER NO. OF KG 
TO EXCHANGE”:INPUT NT 

4069 IFNT > A(M,3)THENPRINT“ ZFYOU DO 


4070 NT=INT(NT) 

4090 IFNTE> A(M,3)ORNTE<OTHEN 4920 
4100 A(M,3) = A(M,3) — NT:A(M,2) =A(M,2) 
+ (NT’ER):A(M,1)=A(M,1) + (NT’ER) 
4130 PRINT“E”NT“KG EXCHANGED FOR $ 

»NT"ER:FORF = 1T02000:NEXT:RETURN 


Commodore VC 20 


4000 PRINT” 


4020 PRINT = Fa 
AGENCYOO 


EXCHANGE 
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4030 PRINT“ EITHE CURRENT 
EXCHANGE RATE IS:—” 

4040 PRINT:PRINT“I KG=$”ER 

4050 PRINT:PRINT“WJENTER NO.OF KG 
TOI EXCHANGE”:INPUTNT 

4060 IFNT>A(M,3)THENPRINT“EIYOU DO 
NOT HAVE THAT AMOUNT OF 
Goal pı!ıdı!T! 

4970 NT=INT(NT) 

4090 IFNTE> A(M,3)ORNTE <@THEN4020 
4100 A(M,3) = A(M,3) — NT:A(M,2) = A(M,2) 
+ (NT’ER):A(M,1) = A(M,1) + (NT’ER) 
4130 PRINT“ ENT“KG EXCHANGED FOR”: 
PRINT“ BJ $”NT’ER:FORF= 1702000: 

NEXT:RETURN 


AcornB 


4000 CLS 

4020 PRINTTAB(12,3)‘“EXCHANGE 
AGENCY”TAB(5,10) “THE CURRENT 
EXCHANGE NATE IS:—”’TAB(5,12) “1 kg 
OF GOLD $”;ER;:INPUT "ENTER 
NO. OF kg 10 EXCHANGE” ,NTE 

4070 NTE=INT(NTE) 

4080 IF NTE>A(M,3) THEN PRINT’“YOU 
DON’T HAVE THAT MUCH GOLD!” 

4090 IF NTE> A(M,3)OR NTE<® THEN 
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Programmier-Service 


PRINTTAB(28,14)SPC(10):GOTO 4020 

4095 VDU11:PRINTSPC(39) 

4100 A(M,3) =A(M,3) — NTE:A(M,2) =A(M,2) 
+ (NTE*ER):A(M,1) = A(M,1) + (NTE*ER) 


4130 PRINT”;NTE“kg EXCHANGEDTIFORLI$”; 


NTE*ER;SPC(29):Z= 
5000 RETURN 


Tandy/Dragon 


4000 CLS 

4020 PRINT@7,‘“exchange agency”: 
PRINT@128,“THE CURRENT EXCHANGE 
RATE IS:—”:PRINT@197,“1KG OF 
GOLD =";ER:PRINT@288,“ENTER NO. OF 
KG TO EXCHANGE”’;: INPUT NT 

4080 NT=INT(NT) 

4090 IF NT>A(M,2) OR NT<® THEN 4920 

4100 A(M,2) =A(M,2) — NT:A(M,1) =A(M,1) 
+ (NT’ER):A(M,®) = A(M,®) + (NT*ER) 

4130 PRINT@448,NT;‘KG EXCHANGED FOR”; 
NT’ER:FORZ = 1T01000:NEXT:RETURN 

5000 RETURN 


INKEY (340): RETURN 


Zeile 4000 initialisiert dieses Pro- 
gramm. 

Zeile 4020 (Commodore 4020 bis 
4050) erzeugt die Überschrift, den 


aktuellen Goldkurs und fragt da- 
nach, wieviele Kilo Gold verkauft 
werden sollen. Außer im Tandy/Dra- 
gon-Programm prüft Zeile 4070, ob 
genügend Gold für den Verkauf vor- 
rätig ist. Zeile 4080 sorgt dafür, daß 
die zu verkaufende Goldmenge ein 
ganzzahliges Gewicht hat. 

Mit Zeile 4090 gelangt der Ablauf 
zurück zu der Frage, ob das zu tau- 
schende Gold überhaupt vorhanden 
ist. Zeile 4100 bringt die Bilanz des 
Spielers nach dem Verkauf wieder 
ins Lot. 

Das Unterprogramm meldet dem 
Spieler durch Zeile 4130, wieviel 
Gold in Geld umgewechselt wurde. 

Die Zeilen 7000 bis 7030 stellen 
die Aufforderung zu einer neuen 
Spielrunde dar. 


1 FOR n=USR“a” TO USR “o”’ +7: 
READ a: POKE n,a: NEXT n 

7000 PAPER 5: INK ©: BORDER 5: CLS 

7010 PRINT AT 9,12;a$(m): PRINT AT 


10,8;‘has gone bust!””: PRINT FLASH 1;AT 


20,1; “Press any key to play again!_]” 

7030 PAUSE ®: RUN 5 

8000 DATA 255,85,170,0,0.0,0,0,62,28, 
56,126,28,62,120,28 

8010 DATA 255,255,62,126,127,60,124, 
126,0,0,0,0,1,1,1,1 

8020 DATA 7,29,49,45,255,255,91,126, 
128,96,48,80,152,140,252,138 

8030 DATA 1,1,1,49,49,49,49,255,122, 
187,62,95,153,255,153,126 

8040 DATA 209,177,224,128,128,128,128, 
128,0,0,128,128,64,32,32,16 

8050 DATA 1,3,7,7,4,4,7,7,255,255,255, 
255,149,149,159,159 

8060 DATA 24,126,153,255,126,153,126, 
219,128,192,224,249, 248,168,248,255 

8070 DATA 16,8,8,4,14,31,31,255 


Commodore 64 


7000 POKE53280,3:POKE53281,3: 
PRINT“ CZ” 

7010 PRINT Au u] an] In] Ind Id 
N I TAB(16);A$(M):PRINTTAB 
(12) SE MHAS GONE BUSTI!!” 

7015 FORZ=1T01000:NEXT 

7020 PRINTTAB(6);“ IM EIPRESS ANY 


Programmier-Service 


KEY TO PLAY AGAIN” 

7030 POKE198,0:WAIT198,1:RUNS 

60000 POKE56334,0:POKE1,35 

60010 FORF = OTO2047:POKE12288 + 
F,PEEK(53248 + F):NEXT 

60020 POKE1,39:POKEb6334,1 

60030 SP=12808 

60049 READA:IFA= — 1THEN60070 

60050 POKESP,A 

60060 SP=SP + 1:G0T060049 

60070 RETURN 

60080 DATA255,85,170,0,0,0,0,0, 
62,28,56,126,28,62,120,28 

60090 DATA255,255,62,126,127,60, 
124,126,0,0,0,0,1,1,1,1 

60100 DATA7,29,49,45,255,255,91, 
126,128,96,48,80,152,149,252,138 

60110 DATA1,1,1,49,49,49,49,255, 
122,187,62,95,153,255,153,126 

60120 DATA299,177,224,128,128,128, 
128,128,0,0,128,128,64,32,32,16 

60130 DATA1,3,7,7,4,4,7,7,255,255, 
255,255,149,149,159,159 

60149 DATA24,126,153,255,126,153, 
126,219,128,192,224,240,248,168, 

248,255 
60150 DATA16,8,8,4,14,31,31,255, — 1 


Commodore VC 20 


7000 PRINT<CIM” 

7010 PRINT In] un] In] In] In] el 
TAB (6):A$(M): PRINTER 
ZITAHAS GONE BUSTIN!” 

7015 FOR Z=1T01000:NEXT 

7020 PRINT] I] WÜTIPRESS ANY KEY TO 
PLA ’” 

7030 POKE198,0:WAIT198,1:RUN 


AcornB 


7000 CLS 

7010 PRINTTAB(10,10)A$(M)“ LIHAS 
GONE BUST”TAB(0,29)““PRESS ANY 
KEY TO PLAY AGAIN” 

7030 Z=GETsRUN 

8000 DATA 9,0,0,0,1,1,1,1 

8010 DATA 7,29,49,45,255,255,91,126, 
128,96,48,80,152,140,252,138 

8020 DATA 1,1,1,49,49,49,49,255,122, 
187,62,95,153,255,153,126 

8030 DATA 209,177,224,128,128,128,128, 
128,0,0,128,128,64,32,32,16 

8040 DATA 1,3,7,7,4,4,7,7,255,255,255, 
255,149,149,159,159 

8050 DATA 24,126,153,255,126,153,126, 
219,128,192,224,240,248,168,248,255 

8060 DATA 16,8,8,4,14,31,31,255,255,85, 
170,0,0,0,0,0 

8070 DATA 62,28,56,126,28,62,120,28, 
255,255,62,126,127,60,124,126 


Tandy/Dragon 


7000 CLS 
7010 PRINT@76,A$(M):PRINT@168,‘‘HAS 
GONE BUST !”:PRINT@449,'‘PRESS ANY 
KEY TO PLAY AGAIN” 
7020 IF INKEY$ =" THEN 7020 ELSE RUN 
9000 FOR K=1 TO LEN(Z$) 
9010 B$ = MID$(Z$,K,1) 
9020 IF B$> =‘"0” AND B$ < = “9” THEN 
DRAW NU$(VAL(B$)):GOTO 9050 
9030 IF B$= “— ” THEN DRAW“‘BF2R4” 
9050 NEXT 
9960 RETURN 
Bei den Spectrum- und Acorn-Ver- 
sionen enthalten die Zeilen 8000 bis 
8070 die DATAs für die UDGs. Im 
Commodore-64-Programm werden 
die DATA-Informationen von den 
Zeilen 60000 bis 60150 gePOKEt. Die 
Acorn-Version hat die UDG-DATA in 
den Zeilen 8000 bis 8070. Die Zeilen 
9000 bis 9060 dienen beim Tandy/ 
Dragon-Programm dazu, die 
Schacht-Tiefe links auf dem Bild- 
schirm darzustellen. 
Also los — stellen Sie Ihr Glück auf 
die Probe! 
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Neue Formeln 


Nachdem wir die Grundfunktionen von Daten und Formeln in das 
Arbeitsblatt eingegeben haben, zeigen wir Ihnen in dieser Folge ein 
nützliches Hilfsmittel für Finanzpläne. 


ie in die Zellen eingegebenen Formeln für 

das Arbeitsblatt sind sich sehr ähnlich. 
Möchten Sie zum Beispiel alle Zellen der er- 
sten Spalte mit den dazugehörigen Zellen der 
zweiten Spalte addieren und das Resultat in 
dem dritten Element der Reihe ablegen, so er- 
fordern diese Berechnungen je eine Formel in 
der dritten Spalte aller Reihen. Die erste Zelle 
dieser Spalte, A3, müßte mit der Formel Al+A2 
programmiert werden, die folgende, B3, mit 
Bl+B2 und so weiter. Diese Formeln sind zwar 
ähnlich, doch nicht identisch. Um die Fleißar- 
beit des Eintippens zu sparen, ist eine Funk- 
tion hilfreich, die die Urformel entsprechend 
verändert und in die gewünschten Zellen ein- 
setzt. Sie heißt REPLICATE-Funktion. 

Die Funktionen CLEAR, STORE und RE- 
TRIEVE beeinflussen das gesamte Arbeits- 
blatt. Wie die Namen andeuten, ermöglichen 
sie das Löschen der Daten aller Zellen, das 
Zwischenspeichern des Arbeitsblattes im 
Speicher (anstelle auf Band oder Diskette) und 
das Zurückrufen dieser Informationen. 

Eine weitere nützliche Funktion ist die TAB- 
Funktion, die den Cursor auf dem Arbeitsblatt 
bewegt. Mit den Cursor-Steuertasten können 
alle Zellen angesprochen werden, doch muß 
das Programm nach einer Bewegung den Bild- 
schirm neu aufbauen, und das nimmt natürlich 
Zeit in Anspruch. Mit der TAB-Funktion spricht 
der Anwender eine bestimmte Zelle direkt an, 
einfach durch Eingabe des Namens. 


Alles Routine 


Die Unterprogramme für die REPLICATE- 
Funktion liegen in den Zeilen 5400 bis 5996. 
Zunächst ruft die Hauptroutine ein Subpro- 
gramm auf, das die Formel aus dem Zeichen- 
feld F$() nach C$ kopiert und in ihre einzelnen 
Elemente zerlegt. Diese Elemente (Operato- 
ren, Zellnamen und Konstanten) werden im 
Feld E$() abgelegt. Die Routine arbeitet C$ 
Zeichen für Zeichen ab und überträgt diese in 
den Zwischenspeicher T$. Bei Auffinden eines 
Operators wird der Inhalt von T$ in das näch- 
ste freie Element von E$() gelegt. Der gefun- 
dene Operator wird dann ebenfalls in E$() ge- 
speichert. Dieser Vorgang wiederholt sich, bis 
die ganze Formel in C$ verarbeitet ist. 

In den Zeilen 5500 bis 5650 liegt die Ein- 
gabe- und Prüfroutine, die es dem Anwender 
ermöglicht, eine Formel über eine bestimmte 
Gruppe von Zellen zu reproduzieren, und Kom- 


mandos im Format Al(Bl-F]) annimmt. Dieses 
Kommando bedeutet: Nimm den Ausdruck in 
Al und reproduziere ihn in die Zellen der 
Spalte 1 von Bl bis Fl. Zum Reproduzieren 
einer Formel über den Bereich einer Reihe 
müßte die Eingabe Al(A2-A10) lauten. Der er- 
ste Teil der Eingaberoutine (zwischen 5500 bis 
5520) prüft die Eingabe auf ihre richtige 
Schreibweise. Anschließend wird die Eingabe 
in die drei zur Ausführung benötigten Zellna- 
men zerlegt und in R1$, R2$ und R3$ abgelegt. 


Harte Arbeit 


Die eigentliche Replicate-Routine beginnt bei 
Zeile 5700 und entscheidet zunächst anhand 
der eingegebenen Zellnamen, ob die Formel 
über eine Reihe oder eine Spalte vervielfältigt 
werden soll. Wenn die drei Zellnamen mit dem 
gleichen Buchstaben beginnen (wie bei 
AL(A2-A10)), soll die Formel über Zellen einer 
Reihe reproduziert werden, im Beispiel über 
die Reihe A. Falls die Nummern der Zellnamen 
gleich sind, erfolgt die Reproduktion über eine 
Spalte. Falsche Eingaben wie Al(Bl-F2) wer- 
den erkannt und nicht ausgeführt. 

In den Zeilen 5800 bis 5895 finden wir die 
Routine, die Formeln über eine Spalte verviel- 
fältigt. Nach dem oben beschriebenen Zerle- 
gen der Eingabe benutzt eine FOR... NEXT- 
Schleife die ASCII-Werte der ersten Zeichen in 
R2S und R3$ als Kontrollvariablen. Der Vor- 
gang der Konstruktion einer neuen Formel für 
alle Zellen beginnt bei 5830. 

Es ist notwendig, die Beschränkungen der 
REPLICATE-Funktion zu besprechen. Wenn 
Sie eine Formel über eine Spalte reproduzie- 
ren, erstellt die Routine neue Formeln nur dann 
erfolgreich, wenn die Zelladressen in der For- 
mel innerhalb der gleichen Spalte liegen. Also 
wird die Formel Al+A2*A3 fehlerfrei umge- 
schrieben, Al+A2*B2 jedoch nicht. 

Diese kurzen Unterprogramme befinden 
sich alle im Bereich der Zeilen 5000 bis 5395. 
Das Arbeitsblatt löschen ist ein simpler Vor- 
gang. Die Elemente der Feldvariablen M(,), 
die alle Zelldaten enthält, werden mit ver- 
schachtelten FOR... NEXT-Schleifen auf Null 
gesetzt und das Arbeitsblatt durch Aufruf des 
Unterprogramms bei 1700 auf dem Bildschirm 
neu ausgegeben. 

Für das zwischenzeitliche Abspeichern der 
eingegebenen Werte dient eine zweite Feld- 
variable, N(,). Die STORE- und RETRIEVE-Rou- 


tinen schreiben einfach den Inhalt von M(,) in 
N(,) oder umgekehrt. 

Das TAB-Unterprogramm beginnt bei der 
Zeile 5200 und akzeptiert als Eingabe eine 
Zelladresse. Vor dem Darstellen des Arbeits- 
blattes auf dem Bildschirm sind die horizonta- 
len und vertikalen Grenzen des Bildschirmfen- 
sters neu zu berechnen. 

Auch müssen die Zeilen- und Spaltenadres- 
sen neu ausgegeben werden, falls die ange- 
wählte Zelle außerhalb des bisherigen Fen- 
sterausschnittes liegt. 

In der nächsten und letzten Folge dieses 
Projektes beschreiben wir Methoden zum Si- 
chern und Laden der Arbeitsblattdaten auf 
Diskette oder Cassette. 


BASIC-Dialekte 


Acorn B 
Ändern Sie folgende 
Zeilen in dem Commo- 
dore-Programm. Die 
PRINT-Befehle in den 
Zeilen 5220 und 5502 
enthalten Leerfelder, 
um eine ganze Bild- 
schirmzeile zu löschen. 
5210 PRINT TAB (0,22); 

5220 PRINT "NEW CELL: r 
5501 PRINT TAB (0,22); 

550 PRINT "REPLICATE: $ 


Schneider CPC 
Ändern Sie folgende 
Zeilen in dem Commo- 
dore-Programm. Die 
PRINT-Befehle in den 
Zeilen 5220 und 5502 
müssen ausreichend 
Leerfelder enthalten. 
5210 LOCATE 1,22 

5220 PRINT “NEW CELL: f 
5501 LOCATE 1,22 

5502 PRINT “REPLICATE: 


Zusätzliche Funktionen 


Commodore 64 


2320 >LET P$&SH$t7J-19#15+T ,1T0: 3: 
LET I$=F$((J-1)*15+1,1T0 D 
5000 REM **** CLEAR ARRAY **** 
5010 FOR I=1 TO 15:FOR J=1 TO 15:M(1,JD)= 
O:NEXT J,1:G0SUB 1700 :RETURN 
5100 REM **** GET PREVIOUS SHEET **%** 
5110 FOR I=1 TO 15:FOR J=1 TO 15 
5120 MCI,J)=NCI,J) :NEXT J,I 
5130 GOSUB 1700 :RETURN:REM PRINT DATA 
5150 REM ***** STORE CURRENT SHEET **** 
5160 FOR I=1 TO 15:FOR J=1 TO 15 
5170 NC1,J)=M(1,J) :NEXT J,1 
5180 GOSUB 1700 :RETURN:REM PRINT DATA 
5200 REM **** GOTO CELL ROUTINE *%**%* 
5210 GOSUB 1950:REM MOVE TO INPUT LINE 
5220 PRINT "NEW CELL: 

"scUs 
5230 INPUT "NEW CELL:";NC$ 
5240 LET NC$=MID$(NC$,1,3) 
5250 LET Ni$=MID$(NC$,1,1):LET N2$=MID$( 
NC$,2,2) 
5260 IF Ni$<"A" OR Ni1$>"0" THEN 5210 
5270 IF VAL(N2$)<1 OR VAL(N2$) >15 THEN 5 
210 
5280 GOSUB 1&800:REM TURN CURSOR OFF 
5300 LET Y=ASC(N1$)-64 
5305 LET X=VAL(N2$) 
5315 IF X<& THEN Hi=1:H2=H1+4:60T0 5330 
531% IF X<11 THEN Hi=&4:H2=H1+4:60T0 5330 


Eingabe abfragen und 
prüfen 


Eingegebene Zellnamen in 
numerische und alphabeti- 
sche Bestandteile zerlegen 
(R1$, Rl usw.) 


Reproduzierende 
Schleifen 


Dieses Flußdiagramm 
zeigt, wie die REPLICATE- 
Funktion unseres Kalkula- 
tionsprogramms arbeitet. 
Zunächst verlangt die Rou- 
tine eine Eingabe. Danach 
wird die entsprechende 
Formel aus F$() geholt. 
Der weitere Programmteil 
schreibt die Formel auf die 
Adressen der neuen Zellen 
in der Reihe oder Spalte 
um. Die neuen Formeln 
werden wieder in F$() ab- 
gelegt und stehen den 
Darstellungs- und Berech- 
nungsroutinen zur Verfü- 


gung. 


5320 Hi=11:H2=15 
5330 IF Y<9? THEN Vi=1:V2=V1+7:60T0O 5360 
5340 V1=8:V2=V1+7 

5360 GOSUB 1800:REM PRINT COLUMNS 

5370 GOSUB 1850:REM PRINT ROWS 

5370 GOSUB 1700:REM REPRINT SHEET 

5395 G0TO 1100 

5400 REM **** MAKE LIST OF ELEMENTS IN C 

Ss a88%* 

5405 P=0:LP=1:T$="":TE$="" 

5410 FOR K=1 TO 20 :E$(K)="":NEXT K 

5420 LET P=P+1:IF P>LEN(CC$) THEN E$(LP)= 

T$: RETURN 

5430 TE$=MID$(C$,P,1) 

5440 IF TE$="+" OR TE$="-" OR TE$="*" OR 
TE$="/" THEN 5460 

5445 IF TE$="*" OR TE$="(" OR TE$=")" TH 
EN 5460 

5450 T$=T$+TE$:60T0 5420 

5460 IF T$="" THEN 5470 

5465 E$(LP)I=T$:LP=LP+1 

5470 E$(LPI=TE$:LP=LP+1 

5480 T$="":60T0 5420 


Gewünschte Formel holen 
) 


Pr 


Die Grundelemente in C$ 


) 
LP - Anzahl der Elemente 
in E$() 


For K-ASC(R2$) to ASC 
(R3$) TS-"" 


For Kl=1to LP 


1. Zeichen holen 
TE$ -- MID$ 
(E$(K1),11) 


Ist TE$ 


ein Operator oder 
eine Klammer? 


Ist 
TE$ eine 


Ist 
TE$-RI1$? 
Konstante? 


Zellnamen berechnen und 
zu T$ addieren 


T$ - T$+HESCKI) T$ - T$+Te$ T$ - T$HTES 


Neue Formel in F$() able- 
gen und UPN-Feld in PS$ 
initialisieren 


Rückkehr ins Haupt- 


Bildschirmfenster ausgeben Programm 
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SS00 REM ###* REPLICATING FORMULA *##** 
5501 GOSUB 1950 
5502 PRINT "REPLICATE: 


":CU$ 

5503 INPUT "REFLICATE:" ;R& 

5505 LET P=0:Rl$="":R :R3S="":T$="" 
5510 IF MIDS{R$,3,196>"C" AND MIDEIRE,A, 


19<>"cC" THEN 5500 

SS{5 IF MID$CRS,6, 1) 
13<>"-" AND MIDSCRS,B,13£ 
5517 IF R$="" THEN 5500 

5520 LET P=P+1 

5530 LET T$=MID$(R$,P,1) 

5540 IF T$="(" THEN P=P+1:50T0 5570 

5550 LET Ri$=Ri$+T$ 

5560 G60T0 5520 

5570 LET T$=MID$(R$,P,1) 

5580 IF T$="-" THEN P=P+1:60T0 5510 

5570 LET R2$=R2$+T$ 

5600 LET P=P+1:60T0 5570 

5610 LET T$=MID&(R$,P,1) 

5620 LET R3$=R3$+T$ 

5630 LET P=P+1 

5640 IF P<=LEN{R$) THEN 5610 

5650 RETLIRN 

5700 REM ** DECIDE COLUMN OR ROW #** 

5730 GOSUB SS00:REM TEST FOR VALID INPUT 
5785 Ri=VAL(MID$CRI$,2)) :RI$=MIDSCRI$,1,1) 
5770 R2=VAL(MID$CR2$,2)) ıR2$=MIDECRZ#, 1,1) 
5775 R3=VAL(MIDS(CR3$.2)) ıR3S=MIDSCR3S 1.1) 
5780 IF Ri=R2 AND Ri=R3 THEN 5800 

5790 IF MID$CRI$,1,1)=MID$CR2$,1,1) AND 
MIDSCRI$,1,1)=MIDSCR3S,1,1) THEN 5700 

5795 G0T0 5700 

5800 REM **** REPLICATE COLLMN #**% 

5805 LET C$=F$((ASC(RI$) -85)#15+R1) 


" AND MIDEiR#t,?, 
"-" THEN 5500 


5810 GOSUB 5400:REM MAKE LIST OF ELEMENTS 
se20 FOR KSASCiR2$) TO ASCCR3$)I:T$="" 
5330 FOR Ki=1 TO LP 

5840 LET TE$=MID$(CESCKI),1,1) 

5845 IF (TE$>="0" AND TE$<="9") OR TE$=" 
." THEN T$=T$+E$(K1):60T0 5880 

5850 IF TE$=Ri$ THEN T$=T$+CHR$(CK)+MID$( 
E$(K1),2):G0T0 5880 


5850 IF TE$="+" OR TEt="-" OR TE$="*" TH 
EN T$=T$+TE$:GOTO 5880 
5855 IF TE$="/" OR TE$="*" OR TE$="(" OR 


TEt=")" THEN T$=T$+TE$:G60T0 5880 

5870 IF TE$<>""THEN T$=T$+TE$ 

5880 NEXT Ki 

5890 FSCCK-65)#15+R1)=T$:PS$CCK-55) #15+R 
ze" 

5895 NEXT K:GOSUB 1700 :RETURN 

5P00 REM *#*#* REPLICATE ROW *#*%* 

5905 LET C$=F$(CCASCCRI$)-45) #15+R1) 

5710 GOSUB 5400:REM MAKE LIST OF ELEMENTS 
5720 FOR K=R2 TO R3:T$="" 

5930 FOR Ki=1 TO LP 

5F40 LET TES=MIDSCESCKI),1,1) 

5945 IF (TE$S>="0" AND TE$S{="9") OR TES=" 
." THEN T$=T$+E$(CK1):60T0 59780 

5950 IF TE$>="A" AND TE$<="0" THEN T$=T$ 
+TE$+MID$(STRECK) ,2) :G0OTO 5980 


5750 IF TE$="+" OR TE$="-" OR TE$="*" TH 
EN T$=T$+TE$:G0T0 5780 
5965 IF TE$="/" OR TE$=""" OR TE$="(" OR 


TE$=")" THEN T$=T$+TE#:60T0 5780 

5970 IF TE$<>""THEN T$=T$+HTE$ 

S5?80 NEXT Ki 

SPr0 FEeCASCERISI-55) #15+K)=T$:PS$L (ASCE 
RI$)-85)#15+K)="" 

5995 NEXT K:GOSUB 1900 :RETURN 


Spectrum: 

SOOO>REM *** CLEAR ARRAY ##** 5405 LET P=0: LET LP=1: LET T$=" 5775 LET R3=VAL (2$(2 TO 9): LET 

5010 DIM M(15,15): GO SUB 1700: "; LET Ug="" 2$=2$(1) 

RETURN 5410 DIM E$(20,5) 5780 IF Ri=R2 AND Ri=R3 THEN 60 

5100 REM *** GET PREWIOUS SHEET ##** 5420 LET P=P+1: IF P>LEN <C$) TH TO 5800 

5110 FOR I=1 TO 15: FOR J=1 TO 15 EN LET E$(LP)=T$: RETURN 5790 IF X$=Y$ AND X$=2% THEN 60 
5120 LET M(1,D=N(I,I) 5430 LET U$=C$(P) TO 5700 

5130 NEXT J: NEXT I 5440 IF U$="+" OR U$="-" OR U$=" 5795 60 TO 5700 

5140 60 SUB 1700: RETURN *" OR U$="/" THEN GO TO 5460 5800 REM #*** REPLICATE COLUMN ##*** 
5150 REM STORE CURRENT SHEET IN 5445 IF U$=""" OR U$="(" OR U$=" 5805 LET C$=F$((CODE (X$)-65)#15+R1) 

MEMORY >" THEN GO TO 5460 5810 GO SUB 5400: REM MAKE LIST 
5140 FOR I=1 TO 15: FOR J=ei TO 15 5450 LET T$=T$+U$: GO TO 5420 OF ELEMENTS 

5170 LET N£1,D=M£I,J): NEXT J: 5450 LET E$(LP)=T$: LET LP=LP+1 5820 FOR K=CODE (Y$) TO CODE (Z$ 

NEXT I 5470 LET E$(LP)=U$: LET LP=LP+1 ): LET T$="" 

5130 60 SUB 1700: RETURN 5480 LET T$="": 60 TO 5420 5830 FOR J=1 TO LP 

5200 REM **** GOTO CELL ROUTINEs»##* 5500 REM *** REPLICATING **** 5840 LET U$=E$(J)C TO 1) 

5210 PRINT AT 18,0;" ENTER 5505 LET P=0: LET X$="": LET Y$= 5850 IF U$=X$ THEN LET T$=T$+CH 

NEW CELL B UN SLETTZFRENN LETTER" R$ <K)+E$(J,2 TO ): GO TO 5880 
5220 INPUT LINE N$ 5510 IF RSCBICI"C" AND Rst4a)<>"c 5860 IF U$="+" OR U$="-" OR U$=" 
5225 IF LiÜN <N$)<3 THEN LET N$= " THEN GO TO 5660 *" THEN LET T$=T#+l$: GO TO 588 

Nest" " 5515 IF R$(6)<>"-" AND R$(7)<>"- 5865 IF U$="/" OR U$="*" OR Ug=" d 
5230 LET N$=N$(1 TO 3): LET O$=N " AND R$(8)<>"-" THEN GO TO 5660 c" OR U$=")" THEN LET T$=T$tU$: 

*(2 TO 3 S520 LET F=ePt+i Go TO 5880 

5240 LET N$=N$(1) 5530 LET T#=R$(P) 5870 IF U$<>"" THEN LET T$=T$+U$ 
5250 IF N$<"A" OR N$>"0" THEN 6 5540 IF T$="(" THEN LET P=Ptl: 5880 NEXT J 

o TO 5210 60 TO 5570 5882 LET U$="": FOR i=1 TO LEN ( 
5260 IF VAL (O$)<1 OR VAL <0$) 1 5550 LET X$=X$+T# T$): IF T$ci TO i)<>" " THEN LE 

5 THEN 60 TO 5210 5560 60 TO 5520 T U$=U$+tT$Ci TO I) 

5280 GO SUB 1400: REM TURN CURSO 5570 LET T$=RtiP) 5885 NEXT i 

R OFF S580 IF T$="-" THEN LET P=P+l: 5870 LET F$CCK-65) #15+R1)=U$: LE 
5300 LET Y=CODE (N$)-64 60 TO Ssiü T H$CCK-65) #15+R1)="" 

5305 LET X=VAL (0%) S5?0 LET YteYs+T$ 5875 NEXT K: GO SUB 1?00: RETURN 
5310 LET VL=V2: LET HL=H2 5&00 LET F=sF+l: G0 TO 5570 5?00 REM **** REPLICATE ROW #*** 
5315 IF X<Hi THEN 60 TO 5330 5510 LET T$=R${P) 5905 LET C$=F$C(CODE (X$) -65)%15 
531& IF X<H2 THEN GO TO 5335 5420 LET 2$=2#+T# +R1) 

5320 IF X>=12 THEN LET Hi=12: L 5430 LET F=F+1 SF10 G0 SUB 5400: REM MAKE LIST 
ET H2=15: GO TO 5340 5&40 IF PÄ=LEN (R$) THEN 60 TOSsi0 OF ELEMENTS 

5330 LET Hi=X: LET H2=H1+3 5650 RETURN 5720 FOR K=RZ TO RS: LET T$="" 
5335 IF Y<vi THEN GO TO 5350 5470 PRINT AT 18,0;"ERROR IN REP 5930 FOR J=1 TO LP 

5336 IF Y<V2 THEN GO TO 5360 . LICATE STRING" SF40 LET U$=E$(J,1 TO 1) 

5340 IF Y)=? THEN LET Vi=9: LET 5480 RETURN 5950 IF U$>="A" AND Us<="D" THEN 
V2=Vl+6: GO TO 5360 5700 REM **** DECIDE COLUMN OR R LET T$=T$+U$+STR$ (K): GO TO 5980 
5350 LET Vi=Y: LET V2=Y+6 Ol ##** S5P60 IF Ug="/" OR U$=""" OR Ug=" 
5360 60 SUB 1800: REM PRINT COLUMNS 5710 PRINT AT 18,0; "REFLICATE: c" OR Us=")" THEN LET T$=T$tU$: 
5370 60 SUB 1850: REM PRINT ROWS { so TO 5780 

5380 IF VZ=VL AND H2=HL THEN 60 5720 INPUT LINE R# 5770 IF U$<>"" THEN LET T$=T$+U$ 
SUB 1850: GO TO 1100 5730 G0 SUB 5500 5F80 NEXT J 

5370 GO SUB 1700 5765 LET Ri=VAL (X$(2 TO >): LET 5790 LET F$CCCODE (X$)-85)#15+K) 
5375 G0 TO 1100 x$=X&(1) =T$: LET H${(CODE (X$)-65)#15+K) 
5400 REM **** MAKE LIST OF ELEME 5770 LET R2=VAL (Y$(2 TO d: LET zun 


NTS IN I$ *#* Y$=Y$(1) 5?95 NEXT K: GO SUB 1700: RETURN 
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Bit für Bit 


Auf 68000-Systemen benutzt die 
Peripherie den gleichen Kommu- 
nikationsbus, an den auch Spei- 
cher und CPU angeschlossen sind. 
Wir untersuchen die Ein- und 
Ausgabe (E/A) und wie die CPU 
mit der Methode der „Memory 
Map“ arbeitet. 


E: gibt zwei Hauptmethoden, E/A-Geräte 
anzuwählen und mit ihnen Daten auszutau- 
schen: 

@ Per „Memory Map": Hier werden die E/A- 
Geräte über entsprechende elektronische 
Schaltungen mit dem zentralen Datenbus (an 
den auch Speicher und CPU angeschlossen 
sind) verbunden. Der Prozessor spricht die Ge- 
räte dabei wie RAM-Speicher im „Memory 
Map"-Verfahren an. Wenn mehrere Peripherie- 
geräte den Bus gleichzeitig beanspruchen, 
verliert das System allerdings an Geschwin- 
digkeit. 

@ Isolierte E/A: Diese Methode arbeitet mit 
einem separaten Bus für E/A-Geräte. Hier ist 
zwar die Übertragungsgeschwindigkeit höher, 
doch braucht jedes einzelne Peripheriegerät 
ein eigenes Befehlsmodul. 

Es überrascht nicht, daß der 68000 mit der 
Memory Map arbeitet. In einer Reihe über die 
Struktur der Microcomputer hatten wir das 
Prinzip der E/A-Steuerung von Peripherie- 
geräten per Memory Map schon ausführlich 
beschrieben. 

Hier die drei wichtigsten Informationen, die 
der Prozessor für das Memory-Map-System 
braucht: 
® Status: Da Peripherievorgänge Zeit brau- 
chen (beispielsweise zum Drucken eines Zei- 
chens oder für die Tastaturabfrage), verhin- 
dern Statusinformationen, daß das Gerät vor 
Beendigung eines Befehls neue Anweisungen 
erhält. In diese Kategorie fallen auch Informa- 
tionen, die nicht unmittelbar mit dem laufen- 
den Vorgang zu tun haben, aber Auskunft über 
Ablaufart oder Fehler geben. 
® Steuerung: Mit Steuerregistern werden Peri- 
pheriegeräte eingestellt (konfiguriert) oder 
aktualisiert (zZ. B. die Anweisung an ein Disket- 
tenlaufwerk, einen Datenblock zu lesen, oder 
das Einschalten einer bestimmten Baudrate für 
einen Übertragungskanal). 
© Daten: Schließlich werden Daten an ein Ge- 
rät gesandt, von dort empfangen und bis zum 
Abschluß des Vorgangs zwischengespeichert. 

Auf der Ebene der Impulsübermittlung des 
Hauptdatenbusses können die Vorgänge in 
den Schnittstellenchips schon recht komplex 


E/A per Memory Map 


Speicher 


Peripherie 


Serielle E/A 


Speicher 


Peripherie 


werden. Diese komplizierte Steuerung neh- 
men dem Programmierer normalerweise je- 
doch spezielle Interfacechips ab. Motorola 
bietet zwei dieser Chips an — ACIA für die se- 
rielle und PIA für die parallele Steuerung. 

Serielle Geräte brauchen nur vier Leitungen 
zum Chip — zwei zum Senden und zwei zum 
Empfangen von Informationen. Die Daten wer- 
den hier nacheinander und bitweise übermit- 
telt, während sie bei der parallelen Kommuni- 
kation im Byteformat ankommen. 

Die Schnittstellenchips bieten große Flexibi- 
lität beim Hardwareaufbau. Dabei kann aber 
auch die Bitzahl eines Steuerwortes recht groß 
werden. So werden beispielsweise die ACIA- 
Steuerbits folgendermaßen zugeordnet: 


Bit O und 1 
Bit 2 bis 4 


Bit 5 und 6 


Bit 7 


Diese Bits regeln im wesentlichen die Daten- 
übertragung zwischen Computer und Periphe- 
rie. Ohne sie ist keine geregelte Kommunika- 
tion möglich. 

Jede serielle Datenübertragung braucht 
zwei Befehle. Ein Befehl stellt die ACIA auf die 
Anforderungen des Peripheriegerätes ein. 
Hier ein Beispiel: 

MOVE.B #$3,ACIACON anfänglicher Hard- 
warereset 


Das Bild zeigt die Un- 
terschiede zwischen 
der seriellen E/A, die 
über einen eigenen Pe- 
ripheriebus Daten über- 
mittelt, und der E/A per 
„Memory Map“, bei der 
die Peripheriegeräte 
ihre Daten aus dem 
gleichen Bus erhalten, 
mit dem auch der Spei- 
cher angesprochen 
werden kann. 
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MOVE.B #$15,ACIACON Hardware konfigu- 
rieren 


In diesem Fall muß ACIACON natürlich zuvor 
definiert werden. 

Auf ähnliche Weise werden auch die Status- 
bits für die Datenübermittlung gelesen: 


Bit 0 


Bit 1 


Bit 2 und 3 


Bit 4 bis 6 


Bit 7 


Da Statusregister nur gelesen werden und in 
Steuerregistern nur gespeichert wird, brau- 
chen wir in der Memory Map auch nur eine 
Adresse. Dies trifft auch auf Datenregister zu, 
da daraus nur die empfangenen Daten gele- 
sen oder Sendedaten geschrieben werden. 
Hier ein Beispiel für die Eingabe: 
INCH BTST #0,ACIASTAT steht ei 
chen zu 
fügung: 

BEO INCH Falls nic 
nochmz 
prüfen 

MOVE.B ACIADATA,DO Zeicher 
Parame 
DO lese 

RTS Rücksp 
von der 
routine 

Das Programm wartet, bis Bit O des Steuerregi- 
sters auf O gesetzt ist und liest dann das Daten- 
register. ACIASTAT entspricht ACIACON. 

Auf die gleiche Weise kann eine Subroutine 


auch Zeichen ausgeben: 
OUTCH BTST _ #1,ACIASTAT warten, 


das Dat 
gister le 
BEQ OUTCH Falls nic 
nochme 
verzwei 
und prü 
MOVE.B DO,ACIADATA Zeichen 
geben 
RTS 
Zur Wiederholung muß danach nur folgende 
Subroutine aufgerufen werden: 
ECHRO JSR INCH Zeichen 
lesen 
JSR OUTCH Zeichen 
geben 
BRA ECHO und Abl 
wiedert 


Da der Computer die Daten zeichenweise 
übermittelt, ist dieser E/A-Ablauf nicht beson- 
ders schnell, zeigt aber den Grundmechanis- 
mus der E/A-Programmierung. 


Die Befehle des 68000 


Bevor wir uns mit den Interrupts des 68000 be- 
schäftigen, geben wir einen Überblick über alle 
bisher beschriebenen Befehle. Hier zunächst die 
Gruppe der Kopierbefehle, bei denen die 
MOVE-Anweisung eine wichtige Rolle spielt: 


Befehl Vorgang 
MOVE Transportiere von der Quelle zum 
Ziel 


MOVEM Transportiere mehrere Daten und 
Adreßregister (praktisch für die Pa- 
rameterübergabe bei Subroutinen) 

MOVEA Transportiere den Inhalt einer 
Adresse in ein Adreßregister 

LEA Lade die Quelladresse in ein Adreß- 
register 

MOVEO Schnellübertragung einer kleinen 
Konstanten in ein Datenregister 


PEA Schiebe effektive Adresse auf den 
Stapel 

SWAP Vertausche untere und obere Hälfte 
eines Datenregisters 

EXG Tausche die Daten zweier Register 


LINK/UNLK Wird zur Stacksteuerung für die Pa- 
rameterübergabe bestimmter Sub- 
routinen eingesetzt 


Dieser Befehlssatz bietet zwar viele flexible 
Möglichkeiten, doch sollten Sie besonders bei 
weniger gebräuchlichen Anweisungen wie 
LINK/UNLK vorsichtig sein. Die Befehle für die 
Ganzzahlenarithmetik: 


Befehl Vorgang 

ADD Quelle auf Ziel addieren 

ADDA Quelle auf das Zieladreßregister 
addieren 

ADDI Unmittelbare Daten auf das Ziel 
(datenveränderndes Register) ad- 
dieren 

ADDQ Schnelladdition für kleine Konstante 
(1 bis 8) 

ADDX Addieren mit Übertrag 

SUB Subtrahiere Quelle vom Ziel in einer 

(A/V/O/X) der Adreßvarianten, wie bei ADD 
gezeigt 


CMP(A/|) Vergleiche Quelle mit Ziel und 
setze die Bedingungscodes 


CMPM Vergleiche Speicherstellen unter 
- Nach-Inkrementierung des Pointers 
NEG(X) Negiere das Operanden-(Daten-) 
Register 
EXT Vorzeichenerweiterung des Ope- 
randen-(Daten-)Registers 
MULU Multipliziere Daten ohne Vorzei- 


chen in der angegebenen effekti- 
ven Adresse, und speichere das Er- 
gebnis im Datenregister 


MULS Wie bei MULU, jedoch für Daten 
. mit Vorzeichen 
DIVU(S) Dividiere Ziel-(Daten-)Register 


durch Quelloperanden. Quotient 
und Rest werden im Zielregister 


gespeichert 

IST! Setze die Bedingungscodes je nach 
Operand 

TAS Teste und setze das höchstwertige 
Bit des Operanden 

CLR Setze Operand auf 0 


Bei diesen breitgefächerten Anweisungen 
müssen Sie darauf achten, daß Sie für den 
Operanden den richtigen Adreßmodus einsetzen. 
Es folgen die Befehle der BCD-Arithmetik: 


Befehl Vorgang 

ABCD Addiere BCD-Operanden und spei- 
chere die Summe im Ziel 

SBCD Subtrahiere die Operanden 

NBCD Negiere den BCD-Operanden 


Beachten Sie, daß es keinen BCD-Befehl für Mul- 
tiplikation gibt. Die folgenden Logikbefehle sind 
jedoch umfassend: 


Befehl Vorgang 

AND Logisches AND der Quelle mit dem 
Ziel. Mindestens ein Operand muß 
Datenregister sein 

ANDI Logisches AND mit unmittelbaren 
Daten als Quelle 

OR Logisches OR mit den gleichen 
Komponenten wie AND 

ORI Logisches OR mit unmittelbaren 
Daten 

EOR Exklusives OR 

EORI Exklusives OR mit unmittelbaren 
Daten 

NOT Einerkomplement bilden 


Folgende Befehle steuern das bitweise Testen und 
Bearbeiten: 


Bitverarbeitende Befehle 


Befehl Vorgang 

BIST Das im Quelloperanden festgelegte 
Bit testen 

BSET Zieloperand testen und Bit setzen 

BCLR Bit testen und löschen 

BCHG Bit testen und Operand ändern 


Beachten Sie, daß sie mit dem getesteten Bit 
keine Abläufe ausführen müssen. 


Befehle für Verschiebung 
und Rotation 


Befehl Vorgang 

ASI Arithmetische Linksverschiebung 
ASR Arithmetische Rechtsverschiebung 
IESIE Logische Linksverschiebung 


LSR Logische Rechtsverschiebung 

ROL Operand nach links rotieren und 
Übertragsbit entsprechend setzen 

ROR Operand nach rechts verschieben 
und Übertragsbit entsprechend 
setzen 


Schließlich noch die Befehle zur Steuerung von Pro- 
grammen und Subroutinen: 


Befehle zur Programm- 


steuerung 

Befehl Vorgang 

BRA Unbedingte Verzweigung 

JMP Unbedingter Sprung (sehr prak- 


tisch, wenn Sie die Sprungadresse 
zuvor berechnen wollen) 

Bcc Bedingte Verzweigung. Abhängig 
vom Testen des mit "cc" angegebe- 
nen Bedingungscodes. Hier die 
Codes im einzelnen: 


Für Operanden mit Vorzeichen: 


GT größer als 

LT kleiner als 

GE größer oder gleich 

LE kleiner oder gleich 

VS  Überlaufbit gesetzt 

VC _ Überlaufbit nicht gesetzt 


Für Operanden ohne Vorzeichen: 


EQ gleich 
NE ungleich 
MI Minus 
PI Plus 


HI größer als 

LS kleiner oder gleich 

CS _Übertragsbit gesetzt 

CC _ Übertragsbit nicht gesetzt 

DBcc Zähler dekrementieren und verzweige 
Bedingung 'cc’ (wie oben) 


Befehle zur Subroutinen- 


steuerung 

Befehl Vorgang 

JSR Auf Subroutine springen 

BSR Verzweige auf Subroutine 

RTS Rücksprung von der Subroutine 


Diese Zusammenfassung enthält nicht alle Be- 
fehle des 68000. So gibt es für Betriebssystem- 
designer weitere Anweisungen zur Systemsteue- 
rung, die außerhalb der Thematik dieses Kurses 
liegen. Diese Befehle drehen sich hauptsächlich 
um das Statusregister, die Stackpointer und die 
(‚Trap‘ genannten) ‚Softwareinterrupts‘. Sie sind 
im Anwenderhandbuch des 68000 ausführlich be- 
schrieben. 
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Beide Spiele sind, trotz 
unterschiedlicher Auf- 
machung, Fahrspiele 
gegen die Zeit und an- 
dere Mitspieler. Diese 
Spiele werden sicher- 
lich viele Liebhaber 
finden. 


Heiße Räder 


Zwei Spiele von Activision sollen die Herzen der Rennfreunde höher 
schlagen lassen: das Great American Cross-Country Race 
für den Commodore 64 und die Atari-Computer sowie 


Tour de France für den C64. 


B, 6 Wagen, der mehr als 220 mph schafft, 
sollte ohne größere Schwierigkeiten einem 
Polizeiwagen entkommen. Nicht aber in dem 
Great American Cross-Country Race, und dies 
ist nur eine der vielen verwunderlichen Details 
in diesem Programm. Als Fahrspiel bietet es 
noch weitere Unmöglichkeiten. Ausgestattet 
mit einem Viergang-Getriebe können sie die 
Maschine überdrehen, wenn Sie nur einige Se- 
kunden lang versuchen, mit 30 mph im ersten 
Gang zu fahren, wobei man wiederum ganz 
gemütlich mit 120 mph im dritten fahren kann. 
Auf alle Fälle können sie ihren Wagen jeder- 
zeit zur nächsten Tankstelle schieben, auftan- 
ken und wieder am Rennen teilnehmen, ob- 
wohl der Motor explodierte. 

Das Rennen läuft in den USA, und es geht 
darum, schneller als alle anderen Mitbewer- 
ber, entweder ihre Mitspieler oder die vom 
Computer gesteuerten Gegner, das Ziel zu er- 


==” cl) Y SMSB (fe HE 


0264P 


reichen. Verschiedene Routen stehen zur Aus- 
wahl, von einer kurzen Piste bis hin zur großen 
New York-Los Angeles Querfeldein-Strecke. 

Es gibt drei Widrigkeiten in diesem Spiel — 
den Tank leerfahren, die Maschine zum Explo- 
dieren bringen und der mit Radar ausgestatte- 
ten Polizei in die Hände zu fallen. Alles läßt 
sich ganz einfach durch Auftanken, Schalten 
bzw. Abbremsen vermeiden. Meistens befah- 
ren sie einen Highway, und somit ist es schade, 
daß der Sound der Maschine nicht viel mehr 
als ein dumpfes Heulen hergibt. 


Tour de Force 


Es ist nicht klar, wen das Spiel ansprechen soll, 
da es weder besonders reizvoll ist noch große 
Geschicklichkeit erfordert. Wie dem auch sei, 
es basiert auf großen Filmhits wie z.B. „Can- 
nonball“ oder „Auf dem Highway ist die Hölle 
los“. So besteht die Möglichkeit, daß das Great 
American Cross-Country Race für diejenigen 
ein Hit ist, die diese Streifen genossen haben. 

Tour de France bietet eine angenehm scrol- 
lende Szenerie, Schatten, Anzeigetafeln mit 
wechselnden Mitteilungen, jubelnde Fans und 
realistische Bewegungen. Die Graphik macht 
dieses Programm zur Tour de Force. Jede 
Etappe des Rennens soll schnellstmöglich ab- 
solviert werden, um sich so das begehrte 
gelbe Trikot des Spitzenreiters dieses weltbe- 
kannten Radsportereignisses zu sichern. 

Beim Laden wird die Titelgraphik von einer 
triumphalen Marseillaise begleitet. Doch wäh- 
rend der Etappen, was sollten sie auch mit pa- 
storaler Musik entlang der idyllischen Straßen, 
klingt es recht schauerlich. Dies ist allerdings 
bei einem sonst so gelungenen Programm ein 
erträglicher Nachteil. Zur Technik: Pedalbewe- 
gungen werden durch Rechts- und Linksbewe- 
gen des Joysticks erreicht, nach vorne drücken 
wechselt die Gänge und zurückziehen bremst 
das Fahrrad. Gelenkt wird, indem man den Joy- 
stick nach einer Seite bewegt und gleichzeitig 
den Feuerknopf drückt. Obwohl es so simpel 
ist, verlangt das Spiel ein wohlüberlegtes Han- 
deln, und durch geschickte Bedienung lassen 
sich durchaus ein paar Minuten in jeder 
Etappe einsparen. So kann zum Beispiel das 
Durchfahren der Kurven an der Innenseite die 
Geschwindigkeit optimieren. Beide Spiele bei 
Activision. 


Fachwörter von A bis Z 


UART = UART 

Ein „UART“ oder „Universal Asyn- 
chronous Receiver/ Transmitter“ ist 
eine asynchrone Universalschnitt- 
stelle mit einem Parallel/Seriell- 
Wandler und einem umgekehrt ar- 
beitenden Umsetzer, beide in einem 
Chip vereinigt. UARTs dienen als In- 
terface zwischen dem parallelen 
Rechnerbus und einem angeschlos- 
senen seriellen Peripheriegerät oder 
Kommunikationsnetz. 


Unconditional Branch = 
Unbedingter Sprung 

Ein Sprungbefehl bewirkt allgemein, 
daß der Rechner aus der aktuellen 
Kommandofolge aussteigt und das 
Programm an einer anderen Stelle 
fortsetzt. Bei einem „unbedingten“ 
Sprung ist die Ausführung nicht an 
das Erfülltsein einer oder mehrerer 
Bedingungen gebunden, sondern sie 
findet in jedem Fall statt. 

Der Unterschied zwischen einem 
„bedingten“ und einem unbedingten 
Sprung läßt sich z.B. an den entspre- 
chenden 6502-Assemblerkommandos 
verdeutlichen: Die Anweisung BEQ 
= Branch (if) EQual (zero) ist ein 
bedingter Sprungbefehl — der 
Sprung erfolgt nur, wenn das Zero- 
Flag im Statusregister des Prozes- 
sors gesetzt ist. Das Kommando JMP 
= Jump veranlaßt dagegen einen un- 
bedingten Sprung, d.h. die Fortset- 
zung der Programmbearbeitung bei 
der angegebenen Adresse ohne 
Abfrage einer Bedingung. 


Unix = Unix 

Das Betriebssystem Unix wurde in 
den Bell Laboratories zunächst für 
einen PDP-7-Minicomputer von DEC 
entwickelt und dann auf die PDP-11- 
Serie übertragen. Als Mehrbenutzer- 
system gestattet es den gleichzeiti- 
gen Zugriff mehrerer Teilnehmer auf 
dieselbe Anlage; es hat seit seiner 
Vorstellung im Jahr 1971 bei Mini- 
computern und 16-Bit-Micros große 
Verbreitung gefunden. 

Unix war das erste Betriebssystem 
mit einer leistungsfähigen flexiblen 
Benutzerschnittstelle, und viel von 
seinem erfolgreichen Konzept - u.a. 
die hierarchische Dateistruktur — ist 


Hier werden einzelne Fach- 
ausdrücke eingehend behandelt. 
Da bei der Kommunikation mit 
dem Computer meist die 
englische Sprache verwendet 
wird, werden hier zunächst die 
englischen Begriffe genannt, 
dann die deutsche Übersetzung. 
In den Gesamtindex werden 
sowohl deutsche als auch 
englische Stichwörter aufge- 
nommen, damit Sie es leichter 
haben, das von Ihnen 
Gesuchte zu finden. 


bei anderen Systemen (z.B. bei 
MS-DOS) übernommen worden. 


Validity Check = 
Gültigkeitskontrolle 

Beim Validity Check wird software- 
mäßig geprüft, ob die Eingangsda- 
ten für ein Programm innerhalb des 
zulässigen Wertebereiches liegen. 
Vor allem bei der Tastatureingabe ist 
das sehr zweckmäßig. Die BASIC- 
Anweisung INPUT X z.B. erwartet 
das Eintippen von Ziffern und nicht 
von Buchstaben. Der erfahrene Pro- 
grammierer baut in seine Routinen 
weiterreichende Gültigkeitskontrol- 
len ein, um zu vermeiden, daß offen- 
sichtlich fehlerhafte Daten in die ei- 
gentliche Verarbeitung geraten und 
dann vielleicht einen Programm- 
absturz auslösen. 

Der Validity Check erfolgt im Rah- 
men der Datenübergabe an ein Pro- 
gramm. Durch ein paar zusätzliche 
Anweisungszeilen läßt sich leicht 
feststellen, ob die Eingangsgrößen 
akzeptabel sind; wenn nicht, ergeht 
an das Eingabegerät die Aufforde- 
rung, neue Werte bereitzustellen. 


Variable = Variable 

Einzelne Zeichen oder Zeichenfol- 
gen, die in höheren Programmier- 
sprachen als Platzhalter für numeri- 
sche oder alphanumerische Größen 
verwendet werden, bezeichnet man 
als „Variable“; im Laufe der Pro- 
grammausführung lassen sich ihnen 
wechselnde Werte zuweisen. Varia- 
blen stellen wesentliche Elemente 
der Programmierung dar, weil sie 


neben der Einführung sinnvoller Na- 
men auch den Aufbau von Daten- 
strukturen erlauben. 


VDU = Datensichtgerät 
VDU bedeutet „Video Display Unit“, 
und dieser Begriff wird oft nicht nur 
für das Sichtgerät selbst gebraucht, 
sondern auch für die Elektronik-Bau- 
gruppe zur Erzeugung der Steuer- 
signale im Rechner. Das Datensicht- 
gerät arbeitet mit einer Kathoden- 
strahlröhre, auf deren Schirm das 
Bild zeilenweise durch einen Raster- 
Scan aufgebaut wird. Im Prinzip ge- 
nügt daher als Sichtgerät auch schon 
ein Heimempfänger, obwohl spe- 
zielle Monitore mit RGB-Eingang 
bessere Bilder liefern. Bei tragbaren 
Computern setzen sich jetzt zuneh- 
mend Flachbildschirme mit reduzier- 
tem Leistungsbedarf durch, entwe- 
der als LCD-Anzeigen oder als 
Plasma- bzw. Luminiszenz-Displays. 
Die Anzeige muß bei Sichtgeräten 
kontinuierlich aufgefrischt werden, 
was zwar einigen elektronischen 
Aufwand erfordert, aber andererseits 
die rasche Veränderung der Bilder 
auf dem Schirm zuläßt. 


Bei den Datensichtgeräten mit Bildröhre 
wird der Schirm fünfzigmal pro Sekunde 
durch einen Elektronenstrahl abgetastet. 
Der Eindruck einer gleichmäßigen Bild- 
helligkeit entsteht wesentlich durch das 
Nachleuchten des Phosphors. 


Bildnachweise 
2210: Kevin Jones 


22173, 2291, 2293: Caroline Clayton 
2276-2289: Johanne Ryder 
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Der CD-Rom Laser- 
plattenspieler gilt heute 
als unerläßliches Peri- 
pheriegerät für jeden 
Micro-Besitzer. Das 
Foto zeigt eins der 
ersten CD-ROM Lauf- 
werke, das Hitachi 
Mitte der achtziger 
Jahre mit einer Kapazi- 
tät von 552 MByte und 
einer Übertragungsrate 
von 116 KByte/s her- 
ausbrachte. 


computer 


rs 


Die Zukunft hat begonnen 

Die rapide Entwicklung der Microcomputer- 
technik macht eine verbindliche Vorhersage 
unmöglich. 


) Ihren Einsatz bitte 
Wetten ist ein fester Bestandteil von 1744. Wir 
zeigen Ihnen, wie Sie Ihren Einsatz behalten 
können. 


Text soll wieder wachsen 


Wir beschließen unsere Serie über Text- 
kompression mit einem Treiberprogramm. 


Commodore-Zwerge 

Wir stellen Ihnen ein neues Spiel vor, 
„Little Computer People“ von Activision 
für den Commodore 64. In diesem Spiel 
wird nicht gekämpft, sondern für das 
Wohlbefinden der Zwerge gesorgt. 


